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ABSTRACT 


Conventional computer architectures do not allow us to unambiquously 
express our intent in a computer proaram. The combination of artificial data 
types and resource models force ambiquity and data structure overloading. 
For example, the semantics of a stack combine those of an array structure 
and a iast-in-first-out queue, while the entire stack structure is 
implemented in computer memory as a group of fixed length cells. This and 
other machine-data tupe dependencies can markedly hamper software 
portability. To overcome these obstacles, a means of formallu specifying a 
computing machine’s physical resources in an impiementaticn independent 
way Nas been proposed. Creating an abstraction of the computer’s phusical 
resources in this manner lets the implementor of the specifications clearly 
determine the intent of programs written for it. This abstraction has come 
to be known as the Abstract Machine or AM. 

One implementation of these resource specifications has already been 
accomplished. Several programming tools, such as a programming language 
compiler and a visual display device, have also been created (in software) for 
use with this AM’s implementation. At present, however, there are no means 
for interactively displaying and altering the storage resources of the 
Abstract Machine for debuaging purposes. For the current AM 
impiementation. the bulk of ‘the automated dedudaing tools consist of 
assembler code tracing and listing options that can be chosen at run time. 
The goal of this thesis is to build an interactive debugger for the Abstract 
Machine near the assembler code level. This should expedite the process of 


producing relatively error-free, executable programs while using a smaller 
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amount of time and effort. The debuager will serve as another building block 
In the creation of a compiete programming 2gnvironment for the Absiract 
Machine. This in turn will assist in the general study of minimizing the 
software portability problems that arise because of macnine-softwar2 
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1. INTRODUCTION 


in ihe days when the assembly fangquaqe procrammer was <xIng and 
higher-level programming languages were still unimplemented concepts on 
the "drawing board,” crude were the tcols the programmer could wield in his 
programming environment to quicklu conquer coding problems. Ouring this 
period, CPU time was money, thus efficient programs were a must (as well as 
@ source of pride and means of security for the programmer }. the 
programmer was expected to massage the computing macnine’s siacxs, 
regisiers and memory to eke out as efficient a program as possible. 

TO write efficient programs, the programmer typically included in his 
program code assumptions about his computing machine’s physical 
resources. These assumptions, such as the number of registers available, the 
machine’s representation of data types, and the physical implementation of 
the stacks, were “hardwired” into the programmer’s code. Of course, errors © 
in the program required intimate knowledge of all these assumptions. Events 
such as upgrading the machine or replacing it with one of a slightly different 
architecture typically caused program nightmares with previously “bug-free” 
programs going haywire because the resource assumptions had changed. This 
situation, unfortunately caused even more assumptions to be incorporated 
Inte the code, tupicaily in the form of program “patches.” This cycie. if 
allowed to continue, can so disfigure the original intent of the program, it 
soon becomes difficult, at best, to interpret it. 

Conventional computer architectures do not allow us to unambiquously 


express our intent in a computer program. The combination of artificial data 


tupes and artificial resource models force ambiquity and data structure 
overioading. For example, the semantics of a stack combine those of an 
array structure and a last-in-first-out queue, while the entire stack 
struciure Is implemented in computer memory as a group of fixed lJenath 
calls. This and other machine-data iype dependencies can markediy hamper 
software portability. To overcome these obstacles, a means of formally 
specifying a computing machine’s phusical resources in an implgmentation 
independent way has been proposed (Davis[I984]). Creating an abstraction of 
the computer’s physical resources in this manner lets the implementor of the 
specifications clearly determine the intent of proarams writien for it. This 
adstraciion has come to be xnown as the Absiract Machine or AM. 

One implementation or these resource specifications nas already deen 
accomplished (Yurchak{1984j). Several programming tools. such as a 
programming language compiler (Ozisik[1986]) and a visual display device 
(Hunter[1985]), have also been created (in software) for use with this AM’s 
implementation. At present, however, there are no means for interactively 
displaying and altering the storage resources of the Abstract Machine for 
debugging purposes. The current debugging tools consist of assembler code 
tracing and listing options that can be chosen only at run time. This thesis’ 
goal is to build an interactive debugger for the Abstract Machine near the 
assembler code level. This should expedite the process of producing 
‘elatively 2rror-free, executaDie orcarams whiie using 2 smailer amount oT 
time and effort. The debugger will serve as. another building block in the 
creation of a complete programming environment for the Abstract Machine. 
This in turn will assist in the general study of minimizing the software 


portability problems that arise because of machine-software dependencies. 
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ll. BACKGROUND 


A. THE PROBLEM 

In his Masters thesis, Yurchak[!1984] presented a formal specification for 
an Abstract (computing) Machine which he called AM. This AM was to be used 
to study and offer a way of minimizing the problem of porting software from 


one computing machine to another. 





Figure 2.1: The Semantic Gap 


Yurchak{1984] noted that porting larae programs between computina 
macnines iS an 2@xpensive ordeal in terms’ of programmer time and 2fror 
This predicament is brought on because of the wide semantic gap (as shown 
in Figure 2.1 above) between the programmer’s problem solving abstraction 
(i.e. programming languages, development tools, etc.) and the computing 


machine's physical resources abstraction (i.e. addresses, registers, stacks, 


1 


gic.). In nis words, this gap between the two abstractions was, 
simplistically speaking, a “boundary” between the software used bu the 
Programmer to form problem solutions and the hardware by which those 


sojutions are implemented. 





Figure 2.2: Data a paearade on Hardware Values 


Generally, a computing machine has but a few primitive structures on 
which the rest of the problem solving abstraction is based. Typically, there 
exists a strong bond between the way data types are implemented and the 
manner in which they are represented in hardware. For example, a character 
String is typically represented as an array of memory cells, with each cell 
containing the corresponding integer representation of the corresponding 
character in the character string. Fiqure 2.2 above depicts this relationship. 
7 the textual representation cf the vaiues in computer memory were io be 
removed, the meaning of the values could not be determined. They could be 
integers, memory addresses or numeric symbols for other artificial data 
types. The context of the values must be determined before they can be given 


meaning. This situation typically leads to overloading of the primitive data 
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types of the machine, allowing the proqrammer to treat one data type 4s 
another, thus compromising the data structurz typing. This compromise 
typically causes extensive program changes in the data structure definitions 


when porting the program from one architecture to another. 


B. AFEASIBLE SOLUTION: AM 

In proposing a solution to the software portability problem, Davisi!984] 
formulated a methodology for formally specifying a computer’s resources at 
different leveis of abstraction. His approach was to develop formal 
specifications for the functional interfaces between the rzsources of the 
computing machine. In this way, the user need only oe concerned with the 
functionai interface to a sarticular abstraction level and not the actua! 
interface implementation, which could be done in hardware or software. To 
ascertain the feasibility. of this new methodology, Yurchak[1984] designed 
and implemented a test version of the specifications for a computer 
processor, which has become to be known as the Abstract Machine. 
Davis[1984] and Yurchak[1984] decided to test the methodology at the 
processor level of abstraction because, being the most difficult to formally 
describe, it would give the most insight on the validity of the approach. 

This abstract architecture treats each one of the machine’s physical 
resources as a black box and allows the programmer to use the resources in 
oniy the specified way. In other words, the specification details exactly 
what resources mean and how to use them, but does not specify how a 
resource is to be implemented. With software tools being written for 
implementation on one abstract machine, software portability is markedly 


Improved. The AM serves as a formal interface between the programming 
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riGure 2.3: Narrowing the Semantic 5a 


tools in the gnvironment and the physical resources of the computina 
machine. The AM programming tcols will work on any architecture as !ong as 
the AM specifications are properly implemented on that architecture. Figure 


2.3 above depicts the AM interface in the programming environment. 


C. RELATEDRESEARCH 

Several programming tools have already been developed for the AM. 
Hunter[1985] formally designed and specified a visual display device for the 
AM. Ozisik[1986] designed and implemented a subset C compiler which 
produces AM assembly !anquage code. Zanal!985] formally specified and 
lesianed an apstract database using similar orinciples for specifying the AM. 
Again, the goal of this thesis is to create another development tool for the 
AM programming environment, namely, an interactive debugger near the 


assembly code level. 


Hl. DESIGN 


Before presenting the design and impiementation of the AM interactive 
debugger, it is important to make clear the salient points behind the 
specification of the AM. The AM is an abstraction of the physical resources 
of a machine and, as Davis[1984] points out, the methodoloqu used to 
formally specify that abstraction is representation independent. The best 
example of this representation independence notion 's abstract data tupes. 
The type ‘integer’ not oniy implies a set of values, but a set of operations 
upon those values. This “notion” can be implemented in many different 
contexts, but its intuitive properties transcend implementations or ohusical 
representations. This is the essence of and the true power behind the 
Abstract Machine concept. 

The actual AM implementation around which the interactive debugger was 
built is another physical representation of this representation independence 
notion. Therefore, although one implementation is presented in this thesis, 
the formal specifications for the resource abstraction is adhered to (via the 


programmer interface to the debuagaer). 


A. BASIC COMPUTER RESOURCE ORGANIZATION 
i. Computer Resources 
The AM incorporates the basic principles of a von Neumann computing 
machine. It has a memory for program storage and instruction execution, 
sets of registers and stacks for temporary storage of data values, and, of 


course, a set of data values. Yurchak’s[1984] AM implementation, being an 
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abstraction of a computing machine’s physical resources, can be easily 
“reconfigured” by changing the basic definitions of the resources available. 
The implementation storage resources used in developing the debugger were 
as TOilows: 

® Two memory segments, each with 1024 storage cells; 

e One reaister seqment with thirty-two storage cells; 

@ One stack seqment with 512 storaae cells; 

@e 1022 heap segments, each with 1024 storage cells. 
The memory, registers, stacks and heap storage cells. as in any computing 
machine, all held defined data values. The definition of AM data values, 
however, differs slightly than the manner in which they are defined in other 
computing systems. The AM’s data values are typed while a reqular von 
Neumann machine's is not. In other words, one can determine what the value 
is inside a storage location since the value’s type is stored along with it. 
Figure 3.1 on page 17 shows an example of a computer program in this AM 
implementation with Its machine code and assembly language 
statements. At memory location ‘00000000,’ ‘0190’ is the AM 
implementatton’s machine code for INSTRUCTION-TYPE. It is followed in the 
memory address by the instruction opcode and the operands for the opcode. 
Notice that each operand value is also linked to a type. ’0160’ is machine 
code for MEMORY-ADDRESS-TYPE and '0170' for REGISTER-ADDRESS-TYPE. 

The AM phusical resources adstraction. being impiemented in 

software, is built upon data structures. The data structures used by 
Yurchak[1984] were studied in depth so that the computer's functional 


Capabilities could be extended and, thus, are presented in the next section. 


Memory Machine Assembiy Lanquage 


Location Code Statements 
0130 ~=18FO 
C0000000 9190 383) move  {addr, data}, r (0:0) 


0160 00000003 
0170 00000000 
90000001 0190 382E move fint, 100}, r(0:Cj}@ 
0130 o0000064 
0170 00000000 


00000002 OI90 = 1880 stop 
N0000C05 O1SQO iBF4 daia ds IO 
0160 OO00C00D 
GiSG) | Mise! 


rigure 3.1: Camputer Program in AM implementation 


2. Computer Data Structures 

In order to design a debugger that will interact unobtrusively with 
the AM's basic operations, One must understand the data structures upon 
which it was implemented. These structures represent the AN’s data values, 
memory, registers, and stacks. All the data structures used in this 
implementation were written in the 'C’ programming lanquage. 

Figure 3.2 on page 18 shows the type declaration structures in 
Yurchak’s[1984] implementation for BOOLEAN, INTEGER and NATURAL data 
values. They are representative of ail the’AM’s basic data value structures. 
Yurchak{1984] notes that the AM storage resources are designed to hold any 
properly defined value. In typical computing, this poses little or no problem 
since all the values are based upon the overworked and overloaded bit vector. 


To be able to store and operate upon a myriad of value types in the 
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tupedet char DOO}; 
typedef unsigned int nat; 


typedef struci { 
short type; 
boo! val: }BOCL: 


typedef struct { 
short type; 
long val; } INT; 


tupedef struct { 
short tupe; 
nat val; } NAT; 


Figure 3.2: Data Value Structures 


AM's “physical resources” required the introduction of another “common” 
level of abstraction, a union of all the basic value types. This abstraction 
was implemented using the structure shown in Figure 3.3 on page 19. 

With the structures of the data values now presented, it is now time 
to examine the structures that represent this implementation’s primary 
physical resource abstraction for the memory, registers and stacks. The 
‘up2 declarations for the siructures are shown in Figure 3.4 on page 20. 
cacn resource is primarily a siructure containing an array wnich can store 
any value defined in this AM implementation. The computer’s memory, 
registers and stacks are actually arrays of these resource structures. Each 


of these arrays equates to a storage "seqment.” 
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typedef = union value { 
short fupe: 
opcode opcadval; 
BOOL boolval; 
INT intval; 
NAT natval; 
CHAR cnarval; 
CS Tir csirval; 
MAD madval; 
RAD radval;: 
SAD Sadval; 
F iL fileval; 
INSTR insirval; 
MOP mopval: 
DOP dopval; 
ROP ropval; 
BOP bopval; } VAL; 


Figure 3.3: Common DALUE Abstraction 


3. Instructions to the Computer 
Perhaps the most 
INSTRUCTION. INSTRUCTION values, as in any other computing machine, drive 


important of the computer values is the 
the computer program’s execution. Its type definition and logical structure 
In Yurchak’si1984] impiementation are snown in Figure 3.5 on Dage 21. As 
snown in the figure, the instruction is implemented as a structure containing 
its value type and an array of operand values. The first element of this array 


Is the instruction opcode. Subsequent elements in the array are the operands 





typedet struct { 

int 3iZe: 

VAL **val;  } memseq; 
typedef struct { 

Int num; 


VAL **val; } reasea: 


typedef struct { 


Int SIZ@; 
lona = Sp; 
WAL PME} susseg; 


Figure 3.4: Primary Resource Structures 


(AM data values) for the instructions. Yurchak[1984] implemented the 
Instruction value so that the first digit of the opcode indicated the number 
of operands the instruction required. By his design, the opcode was also 
considered as one of the operands. It is important to note that the 
instruction type definition (Figure 3.5) and the common-value type 
definition (Figure 3.3) are recursively defined in terms of each other. This 
facilitates converting from a basic instruction value, stored in memory, to 


an executable instruction at the programming level of abstraction. 


5. DESIGN OCF THE INTERACTIVE DEBUGGER 
. Philosopny 


As stated in Chapter |, the computer’s current debugging facility 


consists of a trace option that can be specified at computer “startup.” This 
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typedef siruct { 
short ‘type; 
union value *val; } INSTR: 


SOREN WA warms aeonn 
os 


weervateets 4 . 





Figure 3.5: Structure of Instruction Dalue 


trace facility was, however, designed more for providing debuqging 
diagnostics about the computer’s internal functioning than for debugging the 
user’s program. The trace could only be turned on at the beginning of 
program execution and could only be turned off by program termination. This 
facility alone clearly does not provide the AM computer programmer with an 
adequate program debugging environment. 
Wraul1984] notes that a microcomputer debuaging environment 
snould have the foilowing basic functions: 
@ Single-step program execution; 
e Breakpoints In program execution; 


e Register Display/Modification; 
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# Memory Display/Modification. 
This Dasic suite of debuaaina facilities aives the programmer the capability 
to “disassemble” and examine his proaram and the machine state in discrete, 
well defined sieos. This gives the programmer a means of quickly identifuind 
and correcting program logic errors with a minimum of time and effort. The 
interactive debuager for the AM was desianed to provide all of the above 
facilities. To qive the programmer an added deqree of freedom in the 
debugging environment, the following capabilities were also incorporated 
into the desian of the AM debuacer: 

2 Proaram Execution Trace: 

a Program Counter Display/Medif ication. 
The oroaram execution trace, unlike the old trace facility, snows just the 
Instruction about to be executed. Allowing the programmer to see and 
change the program counter allows the testing of different program 
execution paths without having to terminate program execution, changing tts 
textual representation, and recompiling the program for execution. This Is in 
accord with the philosophy of providing a debugging environment that 
facilitates quick detection and correction of coding (logic) errors. 

Yurchak’s[i984] AM implementation is designed to be easily 

reconfigurabie by changing the basic array definitions of the resources 
available. The essence of this design objective was carried over into the 
Jesian or the debugger. A recontiquration of the computer’s resources in the 
AM is acknowledged by the debugger while performing its operations. The 
basic definitions for the debugger may also be easily reconfigured for, say, 
allowing more program breakpoints or increasing the maximum integer the 


debugger assumes. 


a 


2. Deduaqger Interface to the Physical Resources 
In order to implement the debuqger facilities, an interface to the 


computer's physical resources had to be designed. This interface would be 
primarily concerned with the retrieval and siorage of data values in the 
machine’s physical resources. A study of the computer’s data retrieval and 
storage modules revealed that the following functions were currently 


available for these tasks: 


e FETCHM) -_ retrieves a value from memory; 

e STOREMQ - stores a value into memory; 

@ FETCHR() - _ retrieves a value from a reaister: 
@ STORER() -_ stores a vaiue into a register: 

@ TOPSTKO - retrieves a value at top of a stack. 


These functions provide a well-defined interface to the data structures upon 
which the resource abstraction is built. Interfacing to these functions to 
perform the debugger operations resulted in a reduction in the amount of 
code needed to implement the debuaqger. 

As Is typical in any computing machine, however, some data retrieval 
and storage operations generate errors which in turn force abnormal 
termination of program execution. Three such operations are as follows: 

® Retrieving a value form an uninitialized storage location; 

e Retrieving a value form a non-existing storage location: 

® Storing a value at a non-2xisiing stcrage !ocaticn. 
Clearly if the debugger is to use the implementations existing AM data 
retrieval and storage functions to perform its operations, a means of 
properly handling these types of errors had to be developed. To display 


uninitialized storage locations while in the debugging mode, the retrieval 
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functions were modified to return a NULL value for displaying to the user. If 
the computer is not in the debug mode, a requiar execution error is 
generated. The means for preventing the latter two types of errors while in 
the debug mode were designed into the user interface to the debugger. 

3. Debugger Interface to the User 

The interface was desianed to permit, of course, the capability to 
perform the operations listed in section IIl.B.1. it was also tailored to keep 
the user from specifying debugger commands that would cause preventable 
errors in the debuager interface to the physical resources abstraction and in 
oproqram g2xecution. Since ihe debuqaer has access to available computer 
resources, the user can be kept from trying to access a non-existing storage 
seqment or offset address. from setting the proaram counter to a memory 
location that does not contain an instruction value, or setting a breakpoint 
at a memory location that does not contain an instruction value. This type 
of interface traps potential errors at the earliest possible stage. It does 
not, however, prevent the user from setting a storage location with a value 
that may cause an error during program execution. This particular kind of 
error correction was considered beyond the scope of this thesis and, 
therefore, was not entertained. 

The debugger was designed to prompt the user for each piece of 
command input (prompted commands) instead of the user entering the entire 
Jebuaqger command on cone or two iines (line commands). Prompted input 
allows for “layered” error checking of the debugger command, allowing the 
user to reenter input at that layer instead of having to reenter the entire 
debugger command. This also permits new users, familiar only with this AM 


implementation’s value representation and instruction opcodes, to quickly 
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ig@arn and use the debuqger without learning debugger command-line formats. 


The debugger interface to the user is shown In Appendix A, Sample Sessions. 


Zo 


IV. IRPLEMENTATION 


A. ASSUMPTIONS 
In building any software tool, some of the many variables in a 
programming environment must be made fixed due to implementation 
considerations and a need for establishing a point of reference. These 
“constant” variables take the form of assumptions about the programming 
environment. The following ones have been made about the AM programmina 
environment: 
2 The user knows how to assemble files using the environment’s 
assembler for execution on the computer; 
e The user is familiar with the instruction opcodes used in this 
implementation of the AM; 
® There are no more than six (6) operands per instruction: 
e <A character string is less than 81 characters in length; 


e Integer values range from - 2147483647 to 2147483647; 


B. DEBUGGER COMMAND SYNTAX SYMBOLS 
The debugger command syntax symbols are in Appendix B, Debugger 
Command Syntax Symbols. The user is prompted for each piece of the 


command, thererore, “ne aciual command format is relatively unimpertant. 


C. INTERACTIVE DEBUGGER OPERATIONS 


1. Display Operations 
The user can use the debugger to display all the computer's memory, 
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reqisters, the top of any stack segment, all the program breakpoinis and the 
current value of the proaram counter. Sample demonsirations of the display 
Operations can be found in Appendix A, Sample Sessions. The following 
subsections present the functional details for each iype of display operation. 
a. Display Memory 
All of the computer’s memory cells can be displayed with the 
‘display memoru’ operation. The command has the following suntax: 


‘a’ 'm’ ('*' | segment:offset} span 


The operation retrieves a value from a specified memory ceil anc displaus it 
to the user. It uses the computer function ‘fetchm()’ to perform the retrieve 
and ‘showmem()’ ito display the value at the memory location. Normaily, 
during requiar proqram execution, a retrieval from an uninitialized memory 
location causes an execution-terminating error in the computer. For 
debugging purposes, however, a means was developed to interject anull value 
into the retrieve if, in fact, no value is contained at the specified memory 
cell. A control variable was used to tell the computer whether to return a 
null value (implying the machine was performing a debugger task) or generate 
an error (machine under program execution). Control variables are coveredin 
section IV.D. 


b. Display Reagister 


bol 
eR) 


All of the compbuter’s 7eqisters can be viewed with ‘he ‘tispl 


Cy) 
(ce 


register’ operation. It has the following command syntax: 


‘d’ ‘r’ segment:offset span 


Like the ‘display memory’ operation, this operation causes similar retrieval 
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and display operations to be performed, Dut using the AM’s register segments 
instead of the memory segments. This operation uses ‘fetchr()’ to retrieve 
the value from the register cell and ‘showmem()’ to display the value to the 
user. As in displaying memery, similar provisions are made for the 
interjection of anull value if the register cell contains no value. 
c. Display Stacktop 

The top of any stack segment can be displayed using the ‘display 

Stack’ operation. Its command syntax is as follows: 


‘d’ ‘s’ seament 


Tne mechanics of the ‘display stack’ operation are similar to that of ‘display 
memory’ and ‘display reqister’. It, however, uses ‘topsik()’ to retrieve the 
value stored at the top of a stack segment. One might wonder why the user 
is given a free hand in viewing any memory or register cell, but is restricted 
to seeing only the top cell in a stack segment. This, in part, is in keeping 
with the notion that the resources are a "black box.” For a particular state 
of the computer, the values stored in the memory and registers ‘exist’ and 
are all accessible by the user, typically via a computer program. Values in 
stack cells below the top cell conceptually do not exist for a particular 
state of the machine. The interactive debugger adheres to this principle. 
d. Display Breakpoints 

This operation displays ail the entries in the breakpoint ‘adie. 

ihe command syntax is as follows: 


‘d’ 'b’ 


The table has three items per entry: the break number, the memory location 
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where the breakpoint is set, and the opcodeof the reqular instruction. The 
table is updated by the ‘set breakpoint’ and ‘remove breakpoint’ commands. 
e. Display Program Counter 
This debuqaer operation displays what seqment the procram 
counter is currently in and at what offset in the seqment it is currently 
pointing. Its command syntax is as follows: 
qi 


2. Set Operations 
The set operations are perhaps the mosi impcrtant of all the other 
debugger operations since they permit the user to actually change the state 
of the computer. The operations give the use the capability to alter the 
state of the computer's memory, registers, stackiops and the program 
counter. The set operations also include the capability to set breakpoints at 
specified memory locations. Demonstrations of the set commands can be 
found in Appendix A, Sample Sessions. The functional description of each of 
the set operation now follows. 
a. Set Memory 
The debugger operation ‘set memory’ gives the user the capability 
to store any of the AM’s defined values at any memory location, uninitialized 
or not. This allows the user to “patch” faulty instructions so that program 
testing can proceed upon a user-desired path. Its command suntax is as 
Fouows: 


§ § 


‘Ss ‘mM  seqment:offset value 


This operation uses the computer function ‘storem()’ to place the desired AM 
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value into a specified memory location. This operation can indirectiy affect 
the behavior of another debugger operation, ‘remove breakpoint’ (which is 
covered in detail later). Breakpoints are implemented by substituting 
breakpoint opcodes for the actual instruction opcode in the instruction 
value. Setting a memory location which contains a breakpoint opcode would, 
in effect, remove the breakpoint opcode, but leave its breakpoint entry in the 
break table. For this reason, the ‘set memory’ operation first retrieves the 
value using ‘fetchm()’ and checks to see if a breakpoint exists at the 
location. If there is, the user is given the option of aborting the operation 
or confirming it. If the operation is confirmed, the breakpoint is removed 
from the table and the new value stored into memory. This technique helps 
iO gnsure ciosure in the debugger operations and to maintain a significant 
degree of operation independence between the debugger commands. 
b. Set Register 

This operation allows the user to set any register location to 

any one of the requiarly defined values. Its command syntax is as follows: 


) 


Ss ‘r’ segment:offset value 


It uses the function ’storer()’ to store ‘value’ into the indicated register. 
Cc. Set Stacktop 
This operation lets the user store any reqularly defined value at 
the top of any stack seqment. Its command suntax is as foilows: 


S'S) Ssegment:orfset value 


This AM implementation contained no function for actually changing the 


value at the stacktop without modifying the stack pointer. In other words, 
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the value at the stacktop can normally de cnanged only by pushing values onic 
Or popping values off of the stack, thus changing the stack pointer. To give 
the user the freedom to actually alter the value at the stacktop without 
modifying (in all but one cas2) the stack pointer, a new function was added 
to the computer called ‘storestk().' The function uses the stack segment 
stack pointer to actually store the value ai the stacktop. It does change the 
stack pointer when the stack is empiy since the stack pointer must be 
initialized before the value can be stored. 
d. Set Breakpoint 

This operation gives ihe user the capabiilty to tempeorartiy nait 
program execution to examine and possibly alter the state of the AM. Its 
command syntax is as follows: 


} 


Ss ‘Dd’ segment:ofrset 


Breakpoints can be set in any memory location that contains an instruction 
value. The operation will self-abort if a non-instruction value is stored at 
the memory address (and the user is so informed). The operation also 
self-aborts if a breakpoint is currently set at the memory location. 

The operation first uses ‘fetchm()’ to retrieve the value stored at 
the specified location, Then the aforementioned tests are performed. If the 
value In memory is an instruction and no breakpoint is set at the location, a 
new oreakpocint opcode !s computed, the requiar opcode and the memory 
address are stored in the table, the new breakpoint opcode is stored in the 
Instruction, and then the instruction is stored back into the memory location 


using the computer function ‘storem().’ 


31 


The dreakpoint opcode is rormed Dy taking the debuq Dreakpoint 
code, which In this implementation is ‘0812’, and adding the break number to 
the front of the code. For example, if the next open entry in the break table 
is at position 4, the break opcode computed wouid be ‘4812’. (Currently, up 
to eight (8) breakpoints may be set at any one time during the debug session.) 

e. Set Program Counter 

This operation gives the user the ability to set the program 
counter to any location in memory that contains an instruction value. 
Restricting the target memory location this way prevents a proqram 
2xecution grrcr bu the computer. !n other words, trying tO execute a 
non-instruction vaiue causes the computer io  qenerate an 
2xecution-terminating error. The command suntax is as follows: 


aq '*'  segment:offset 


It the user enters a memory location that does not contain an instruction, 
the operation self-aborts and the program counter remains unchanged. 
3. Remove Breakpoint Operation 
This operation undoes the ‘set breakpoint’ operation. Its command 


syntax is as follows: 


r brknum 


it removes Dreakpoints oy their 2entru number in the oreak tabie. it first 
cnecks io see if the entry is in the table. if it Is not, the operation 
self-aborts (and informs the user). If it is, the operation uses ‘fetchm()’ 
(with the break table entry memory address as a parameter) to retrieve the 


instruction value, inserts the regular opcode from the break table into the 
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instruction value, deletes the break table entry and stores the value Dacx into 
memory using ‘storem().’ A sample demonstration of this operation can be 
found in Appendix A, Sample Sessions. 
4. Trace Execution Operations 

These operations are used to turn on and off the debug trace flag. 
They can also be used to trace a certain number of instructions and return 
control to the debugger. After the operation is set, it’s is activated by 
Issuing the ‘go execute’ command. Sampie demonsirations can De found in 
Appendix A, Sample Sessions. The following subparagraphs present the 
functional details for gach of the trace operations. 

a. Trace On 

Tnhls operation turns onthe debug trace flag. When the flac is on, 

gach instruction is displayed before it is executed. The command syntax is 


as follows: 


ulus fig 
¢ 


The operation can be disabled at the debugger level by the ‘trace off’ 
command. The operation is also aborted during program execution by 
program termination or a breakpoint being encountered. This operation 
partially disables the ‘trace 7’ operation and completely disables the ‘trace ~ 
off’ operation. 
De ThaeaOt f 

This operation iurns off ihe debug trace flag. ‘When the flag is 
off, the instruction about to be executed is not displayed to the user. Its 
command syntax is as follows: 


oe z 
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This operation aiso disables the ‘trace on’ and ‘trace 1’ commands at the 
debugger level. It canbe disabled by the ‘trace on’ and ‘trace 7’ commands at 
tne debuager level. 
c. Traces” 
This operation causes execution to be traced for 7 instructions 
and then control to be transterred back to the debugger. its command syntax 
Is as follows: 


't' span 


While at the debugger command level, it can completely disable the ‘trace 
off’ operation. After the specified number of instructions are executed, the 
debug trace is again turned off. While at the debugger command level, this 
operation can be partialiy disabled by the ‘trace on’ command and totally 
disabled by the ‘trace off’ command. During program execution, the 
Operation is disabled by program termination or a breakpoint being 
encountered. The number of instructions to be traced can aiso be overriden 
by the ‘go execute 77’ command. 
So. Go Operations 

These commands are used to transfer control from the debugger back 
to the computer. Demonstrations of the operations canbe found in Appendix 
4, Sample Sessions. The functional detaiis of each of the go operations are 
presented in ihe following subparagraphs. 

a. GoUncontrolled 

This operation transfers control back to the computer so that it 


can proceed with program execution. The operation proceeds until a 
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preakpoint is encountered, a ‘trace 7’ operation Is complete or the program 


terminates. Its command syniax is as follows: 


qs 


De GOg2 
Like the ‘go uncontrolled’ operation, this operation causes 
control to be iransferred from ine debuqger Dack to the computer for 
program execution. However, after 7 instructions are executed, control is 


transferred back to the debuager. Its command syntax is as follows: 


g 


i 


spdn 


The operaticn is disabled in program execution by a Ooreakpoint oeing 
encountered, program termination or the completion of the specified number 
of instructions. This operation has an indirect effect upon the ‘trace 7’ 
operation. Changing the number of instructions to be executed in the ‘gO 77’ 
command also overrides the number to be traced. 
6. Help Operation 
This operation lists the available debugger operations and their 


command formats. Its has the following command syntax: 


a 
A demonsiraticn of the operation is shown in Appendix A. Sample Sessions. 


D. DEBUGGER CONTROL OF MACHINE EXECUTION 
For the debugger to control the execution of the computer requires that 


certain “toggles” be added to the machine. Implementing these “toggles” 
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translates into defining control variables that the debugger sets and the 
computer reads to alter machine execution and flow of control. Fiqure 4.1 
on page 37 is a list of the control variables added to this AM 
impiementation. Amore detailed description of the function of gach of the 
control variables is presented in the following subparagraph. 
l. Debugflag 
This control variabie directs ithe computer to activate and transfer 
control to the interactive debugger. It is set on two occasions, the user 
specifying the '-d’ option at computer "startup” and the program terminatina, 
normally or abnormallu. !t is reset wnen control is passed from the 
debugger back to the computer. 
2. Debgtask 
This control variable keeps the retrieve operations from generating 
an error if the debugger attempts to retrieve a value from an uninitialized 
Storage location. if the storage location is uninitialized, the retrieve 
function generates a null value and returns it to the debugger. The 
termination of each debugger operation zeroes the variable. 
3. Left2do 
This variable controls the number of instructions to be executed for 
a‘go 7’ ora'trace 7’ debugger operation. This control variable is zeroed if 
an execution error occursor a breakpoint is encountered. It also works in 
tandem with the ‘debgent!’ control variable. 
4. Debdgcentl 
This control variable tells the computer that a’go 7’ or a'trace 7’ 


operation is being performed in tandem with program execution. If ‘debgcntl’ 
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int debugflag = 0; 
/* When == 1, calls the interactive debugger. */ 


int debatask = 0; 
/* When == 1, tells AM that debuqger is directly using AM functions for 
debugger operations. */ 


int left2de = 0; 
/* When == 1, tells AMhow manu instructions to do before forking back 
to the debugger. Set by ‘gon’ and ‘trace n’ debug ops. */ 


int debgcent! = 0: 
/* When == |, tells AM that its execution is under control ofa gon or 
‘trace n’ debug operaticn. */ 


Int Dreakilg = 0; 
/* When == 1, tells AM that breakpoint encountered in its execution and 
conversionof an instruction must be made. */ 


int errorfig = 1; 
/* When == 0, tells error() that ICSTOP instruction has occurredand not 
to print certain error messages. */ 


int dbgtrace = 0; . 
/* When == 1, sends value at the _pc.val to standard output device, thus 


performing a program execution trace. */ 


Figure 4.1: Debuqger Controi Variables 


is set, then the contro! variable ‘left2do’ is checked for equality with zero. 
This variable is zeroed when the number of instructions has been executed, a 


breakpoint occurs, or the program terminates. 
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>. Breaktid 
Breakpoint opcodes are substituted for the requiar instruction 


opcodes, with the reqular opcode being stored in the break table. The 
‘Drzakflq’ “toggle” is set when an insiruction containing a break opcode is 
encountered. The variable signals the debugger that the instruction must be 
restored to an executable form by reinserting its requiar opcode from the 
break table. ‘Breakflq’ is zeroed after the instruction is modified. When the 
debugger transfers control back to the computer, the modified instruction is 
then interoreted and executed. 
5. errortla 

In the AM’s current implementation, normal as well as abnormal 
proaram termination calls the error handler to hait execution. This flaq is 
set by the ICSTOP instruction so that certain error messages are not printed. 


7. Dbgtrace 
This “toggle” causes the computer to display the instruction to the 


user prior to its execution. It is set by the ‘trace 7’ and ‘trace on ' 
operations. It is zeroed by a breakpoint being encountered, by the 
completion of the ‘trace 7’ operation, by the ‘trace off’ operation, or 


program termination. 


F. ERROR HANDLING IN) PROGRAM EXECUTION 

The control variables added tc this AM implementation, coupled with the 
error nandier modification, give the aebugger the means for “trapping” 
control of program execution. Calling the error handling module now causes 
the debugging control variables to be zeroed, the appropriate messages to be 


displayed to the user, andareturn to the debugger command level so that the 
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user can examine or alter the machine siate and, if desired, rerun ithe 


program. 


F. MODIFICATIONS TO AM IMPLEMENTATION 


The main debugger program files added to this implementation of the AM 


are contained in Appendix C, Debugger Program Files. Some modifications 


were aiso made to the actuai implementation of the AM. These changes were 


necessary to esiablisn an interface between the debugger and ihe Al%’s 


physical resources. The more significant changes are briefly listed below: 
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Debugger control variables were added to the AM impiementaticn ‘o 
provide proper transfer of control between the computer and the 
cebuqaer; 

The memory, register and stack retrieve operations were modified to 
return a null value to the debugger if the storage location was 
uninitialized; | 

A breakpoint opcodewas added to the computer opcodedefinitions; 

A function for storing a value at a stacktop was added to the value 
retrieve and store module: 

The original copy-value function was duplicated and renamed for use 
In the AM assembler. This was done so as to hide the separate 
debugging process from program assembly process; 

The display-value function was modified tc suppress displaying this 
AM's implementation details to the user; 

The error handler function was modified to call the debugger upon 


program termination, normal or abnormal. 
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V. CONCLUSIONS AND FUTURE WORK 


Desianing ihe interactive debugger io make use of ihe AM 
implementation’s existing functions again demonstrates the advantage of 
formally specifying functional interfaces for computer resources. Because 
the interfaces were well defined and built as conceptual “black boxes.” 
linking them to the debugger was relatively straightforward. Having the 
interfaces being built as "black boxes” also helped to prevent the 
modification "ripple effeci” upon the behavior of existing functions. it Is 
2xpecied that the addition of an interactive debuaqger to the AM programming 
environment will significantly ald future developers of AM resource tcols. 

Although the interactive debuqaer siqnificantiy enhances the AM 
programmers ability to interact with the other elements in the AM 
programming environment, its interface to the user can be improved. In light 
of this, the following areas for continuing research are suggested: 

@ Implement an in-line assembler for the debugger. This would permit 
the user to set storage resources by entering the actual assembler 
language statements. This provides a debugger interface at the level 
of the assembly lanquage programming abstraction; 

e Implement an in-line disassembler for displaying instruction values 
iN memory; 


e Implement a graphical user interface to the debugger. 


APPENDIX A: SAMPLE SESSIGNS 


sam -d 


KK KKK KKKKKKEEKKKKKKKKKKKKERE 


= THE DEBUGGER Ps 


HHH KKH K KKK KHKHKKEREKEKREEKEKKEF 


HELP OPERATION 
Enter letter of operation: 


d (isplay) 

g {0 execute) 

? (list debug ops) 
r (emove break) 

s fat) 

t (race) 

q (uit & nait axec} 


alg 
Debugger Commends 
HS He HHH EEE HEE HE ERK HEE ES 
‘d'Cispiay) ‘miemory), i* | seg:otfset}, span 
‘r‘fegister), seaq:offset, span 
‘s‘(tack - top only), seg 
‘b'(reaks - all) 
‘**(pragram counter) 
gto) {l | n <instrs>} 
“? Qist available debug commands) 
‘s‘(et) ‘m'(emory), seg:offset, val_type, val 
‘r‘(egister), seg:offset, val_type, val 
‘s‘(tacktop, seg, yal_type val 
‘b‘(reak), seg:offset 
‘*"(program counter), seg:offset 
‘t'(race) ‘I'(an) < TRACE 
‘2'(off) STARTED 
for n instrs BY ‘GO 
‘q‘(uit debug and halt execution) 
Legend: | - or, [] - optional, <> - comment, {} - Must choose an item. 


Enter non-dblank char to continue. 


oq 
DISPLAY GPERATIONS 


Display Memory 
Enter letter of operation: 


d (isplay) 


g (o execute) 
‘ (list debug ops) 
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r femove break) 

S (at) 

t (race) 

q (uit & halt exec) 
>d 


Enter one of choices below: 


m (emory) 

r (egister) 

s (tack top) 

b (reak) 

* (program counter) 
m 


Enter one of following: 
‘y’ - addr value prompt 
‘* - for current PC value 
‘@' - to abort the operation: 


* OPERATION SPAN * 


5 *# 


Enter decimal number between | and 20 
or 

Toot abort the cperation: 

> 


Memaddr Contents 


00000000 (V_INSTR) ISPSHI_ 
(V_FILE) 2 
(V_SAD) (0:0) 
00000001 (V_INSTR) ISPSHI_ 
(V_MAD) (1:0) 
(V_SAD) (0:0) 
00000002 (V_INSTR) IFWRITE 
YV_SAD) (0:0) 
00000003 (V_INSTR) ISPSHI_ 
(V_FILE) 2 
(V_SAD) (0:0) 
00000004 (V_INSTR) ISPSHI_ 
(VY_MAD 


(Y_S ; 
0000005 (V_INSTR) IF'WRITE 
(Y SAD) (0: 
00000006 (Y_INSTR) ISPSHI_ 
(Y_FILE) 
(Y_SAD) (0:0) 
00000007 (V_INSTR) ISPSHI_ 
(VY_MAD 
(Y_SAD) (0:0) 
00000008 (V_INSTR) IFWRITE 


42 


Gr SAB) {0 : 0) 
CoocooeS (Y_LINSTR) iSPSdHI_ 
(Y_FILE}) 2 


_SAD) (0:0) 
OOCOOOOOB (¥Y_INSTR) JFWRITE 
(Y_SAD) (0: 0) 
OOOOCOCCOCE (Y_INSTR) ICSTOP 
0000000D (V_NULL) 0 
QOOOOOOOE (Y_NULL) 0 
COOOOOOF (Y_NULL) 0 


Display Register 
Enter letter of operation: 


d (isplau) 
q (o execute) 
? (Vist debug aos) 
r (emove oreak) 
S (et) 
t frace) 
‘ q fuit & hait exec} 
> 


Enter one of choices below: 


m (emory) 

r (egister) 

s (tack top) 

b (reak) 

* (program counter) 
or 


Enter one of following: 
‘y - addr value prompt 
‘@' - to abort the operation: 
>¥ 
Enter decimal segment * between 0 and 0 


or 
‘@’ to abort the operation: 


0 


Enter decimal offset between 0 and 31 


or 
- to abort the operation: 
> 


* OPERATION SPAN * 
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enter decimal number between | and ZO 
or 

‘@ to abert the operation: 

Ya 


Regnum Contents 


90000000 (¥_ANULL) 0 
0000000 1 (Y_NULL) 0 
00000002 (V_NULL) 0 
00000003 (Y_NULL) 0 
00000004 (Y_NULL) 0 


Display Stacktop 
enter jetter of operation: 


d (isplay) 

q fo execute) 

? Gist debug ops) 

- femove brask) 

S (et) 

t (race) 

a (uit & nalt exec) 
>d 


Enter one of choices below: 


m (emory) 

r (egister) 

s (tack top) 

b (reak) 

* (program counter} 
>S 


Enter one of following: 
‘y - segment value prompt 
‘@’ - to abort the operation: 
>Y 


Enter decimal segment * between 0 and 0 
or 

‘'@ to abort the operation: 

0 


Top of Stack: 
OOOOOIFF (V_NULL) 0 


Display Breakpoints 


Enter letter of operation: 


d (isplay) 
g (o bustuté) 


? (list debug ops) 
r (emove oreak) 
S (et) 
t {race} 
F q (uit & nait exec) 
> 


Enter one af choices delow: 


m (emory) 

r (egister) 

s (tack top) 

b (reak) 

* (program counter) 
> 


Enter T to continue 


or 
‘@ to abort the operation: 
>! 


KKK HRKAKKKKKKEKREEKEKKEE 
£ £ 


SREAKPOINTS a 
* *& 


KH HEH HHEKEKKKKKHKEKEKEKKKESE 


BRKNUM MEMADDR OPCODE 


IO OTD AR = © 


Display Program Counter 
Enter letter of operation: 


d (isplay) 
(o execute) 
¢ ist debug ops) 
r (emove break) 
s (et) 
t (race) 
; q (uit & halt exec) 
> 


Enter one of choices below: 


m (emory) 
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r (egister) 

s (tack top) 

b (reak) 

* (program counter) 
>* 


Enter one of following: 
T to confirm display pe 
‘@' to abort the aperstion 
>! 


PRGM COUNTER in segment 0 at offset 0. 
SET GPERATIONS 


Set Memory 
Enter letter of operation: 


d <ispiay) 

g ‘0 execute) 

? Gist debug ops) 

r femove break) 

3 (at) 

t (race) 

q (uit & halt exec) 
Ss 


Enter one of choices below: 


m (emory) 

r (egister) 

s (tack top) 

b (reak) 

* (program counter) 
>m 


Enter one of following: 
‘'y - memaddr value prompt 
‘@' - to abort the operation: 
>Y 


Enter decimal segment * between 0 and | 
or 

‘@ (to abort the operation: 

>0 

Enter decimal offset between 0 and 1023 
or 


‘@ to abort the operation: 
13 


***% Entering Value ta be Storec **** 


Enter number besides type desired: 


1-BOOL 2-NAT 3 - INT 4 - CHAR 
J-tSIR 6 ~SAD 7? - RAD 8 - SAD 
O- FILE 10 - INSTR 11- MQP 12 - DOP 
io -~ROP i4= BEP @ - abort op 

>10 

Enter HEX opcode 


or 
‘@ to abort the cperation: 
> 383 j 


en tt oe eal ee 
¥*** Entering Yalue to be Stored **** 


entar number Sesides tupe desired: 


1-800L 2-WNAT 3 aah 4 - CHAR 
5 eStRe © - MAD 7 - RAD 3 - SAD 
2 ie 11 - SGP ja OP iS > Kur 


i4-B0P @- abort op 
>3 


Enter decimal number between 
~2147483647 & 2147483647 (no *,’): 


‘@ to abort the operation: 


or 
>500 


*** Entering Operand*2 *** 
**** Entering Value to be Stored **** 


Enter number besides type desired: 


1-BOOL 2-NAT 3 - INT 4- CHAR 
3-CSTR 6-MAD #- RAD 6 - SAD 
O9-FILE 11- MOP 12 - DOP 13 - ROP 


14- BOP @- abort op 


>? 


f 


Enter one of following: 
'¥Y - regaddr value prompt 
‘@ - to abort the operation: 
>¥ 


Enter decimal segment * between 0 and 0 
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. to abort the operation: 
> 


Enter decimal offset between 0 and 3! 


or 
t to abort the operation: 
St 


Enter letter of operstion: 


d (isplay) 
g fo execute) 
? Gist debug ops) 
r (emove break) 
s fet) 
t (race) 
i q (uit & halt exec) 
> 


Enter ane of choices below: 
m (emory) 
r (egister) 
s (tack top) 
b (reek) 
* (program counter) 
>m 
Enter one of following: 
‘y' - addr value prompt 
‘*"- for current PC value 
‘@' - to abort the operation: 
>¥ 
Enter decimal segment * between 0 and | 


or 
+ to abort the operation: 
> 


Enter decimal offset between 0 and 1023 


or 
ae abort the operation: 
> 


* OPERATION SPAN * 
Enter decimal number between |! and 20 


or 
<4 to abort the operation: 
> 


Memaddr Contents 


0000000D "gai a 


(Y_RAD) 3 1) 
OOOOOOOCE (Y_NULL) 6 


Set Register 
Enter jetier of operation: 


d (isplay) 

g (0 execute) 

? (list debug ops) 

r femove oreak) 

s (et) 

t (race) 

q (uit & halt exec) 
>S 


Enter one of choices below: 


m (emory) 

r (egister) 

s {tack top) 

b (reak) 

* (program counter) 
or 


Enter one of following: 
'y - regaddr yalue prompt 
‘@' - to abort the operation: 
>v 
Enter decimal segment * between 0 and 0 


or 
5 to abort the operation: 
a“ | 


Enter decimal offset between 0 and 31 


or 
By abort the operation: 
> 


**** Entering Yalue to be Stored **** 


enter number besides tupe desired: 


1-BOOL 2-WNAT 3 - INT 4 - CHAR 
3-CSTR 6-MAD 7 - RAD 8 - SAD 

9-FILE 10- INSTR 11 - MOP 12 - DOP 
13-ROP 14- BOP @ - abort op 


6 
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enter one of following: 
‘'y' - stkxaddr yaiue prompt 
‘@° - to abort the operation: 
>Y 


Enter decimal segment * between 0 and 0 
or 

‘@° io abort the operstion: 

>0 


Enter decimal offset between 0 and 511 
or 

‘@' ta abort the operstion: 

»56 


Enter letter of operation: 


d (isplay} 

4 (9 execute} 

? (jist debug ops) 

r femove oreak) 

s fat) 

t frace) 

g (uit & halt exec) 
>d 


enter one of choices Deiow: 
m (emory) 
r (egister) 
s (tack top) 
b (reak) 
* (program counter) 
»r 
Enter one of following: 
‘y - addr value prompt — 
‘@' - to abort the operation: 
>¥ 
Enter decimal segment * between 0 and 0 


or 
‘@' to abort the operation: 
0 


Enter decimal offset between O and 31 


or 
7a abort the operation: 
> 


* OPERATION SPAN * 


30 


Enter decimal number between 1 and 20 


or 
5 to abort the operation: 
> 


Regnum Contents 


G000000B (¥Y_SAD) (0 : 56) 
OOOGOODE (V_NULL} 0 , 


Set Stackto 
Enter letter of operation: 


d (isplay) 

g (0 execute) 

? (list debug ops) 

r (emove break) 

s (et 

t (race) 

q {uit & nalt exec} 
»S 


Enter one of choices below: 


m (emory) 

r (egister) 

s (tack top) 

b (reak) 

* (program counter) 
Ss 


Enter one of following: 
‘y - regaddr value prompt 
‘@' - to abort the operation: 
>v 
Enter decimal seqment * between 0 and 0 


or 
- to abort the operation: 
> 


*¥*** Entering Value to be Stored **** 


enter number besides iype desired: 


1{-BOOL 2-NAT 3 - INT 4 - CHAR 
539-CSTR 6-MAD ¢-RAD G - SAD 
9-FILE 10 - INSTR 11 - MOP 12 - DOP 
13-ROP 14-B0P @ - abort op 

>4 

Enter character 


JI 


or 
‘@' to abort the operation: 
>! 


Enier jetter of operation: 


d (isplay) 
§ (0 execute) 
? (list debug ops) 
r (emove break) 
s (et) 
t (race) 
; q (uit & pait exec} 
> 


Enter one of choices below: 


m (emory} 

r (eqister) 

s (tack tap} 

b (reak) 

* (program counter} 
>S 


Enter one of following: 
‘yY - segment value prompt 
‘@' - to abort the operation: 
>¥ 


Enter decimal segment * between 0 and 0 


or 
a to abort the operation: 
> 


Top of Stack: 
OOOOOIFF (V_CHAR) ! 


Set Breakpoints 
Enter letter of operation: 


d (isplay) 

9 (o execute) 

? (list debug ops) 

r femove dreak) 

s (et) 

t (race) 

q (uit & halt exec) 
>S 


Enter one of choices below: 


m (emory) 
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r (egister) 

$ (tack top) 

b (reak) 

* (program counter) 
>O 


Enter one of followina: 
‘Y - memaddr yaliue prompt 
‘@’ - to abort the operation: 
>Y 


Enter decimal segment * between 0 and | 


or 
‘@ to abori the operation: 
Ae 


Enter decimal offset between 0 and i023 


or 
‘@ to abort che operation: 
>2 


Enter letier of operation: 


d (isplay3 

g (Oo execute} 

? (list debug ops) 

r {emove break) 

S (et) 

t (race) : 

q (uit & halt exec) 
>S 


Enter one of choices below: 


m (emory) 
r (egister) 
s (tack top) 
b (reak) 
: * (program counter) 
> 


Enter one of following: 
‘'Y° - memaddr value prompt 
‘@ - (9 abort the operation: 
>Y 
Enter decimal segment * between 0 and 1 


or 
‘@ to abort the operation: 
0 
Enter decimal offset between 0 and 1023 


JS 


or 
@' to abort the operation: 
»4 


enter ietter of operation: 


d (isplay) 
g (9 execute) 
(ist debug sos) 
r (emove breek) 
s (et) 
t (race) 
q (uit & helt exec) 
»s 


Enter one of choices below: 


m (emory) 
r (egister) 
§ {tack tap} 
b (reak) 
* (program counter} 
>0 
enter one of following: 
‘y - memeddr yalue prompt 
‘@ - to abort the operation: 
>¥ 


Enter decimal segment * between 0 and | 
or 

= to abort the operation: 

> 


Enter decimal offset between 0 and 1023 
or 

‘@ to abort the operation: 

; ; 

Enter jetter of operation: 


d splay) 
q o execute) 
(list debug ops) 
r femove breek) 
s fet) 
t (race} 
q (uit & halt exec) 
>S 


Enter one of choices below: 
m (emary) 
r (egister) 
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$ (tack top) 
b (reak) 
; * (program counter) 
> 


Enter one of following: 
‘'y' - memaddr value promot 
‘@' - to abori the operation: 
>Y 


Enter decimal segment * between 9 and | 


or 
> fo abort the speration: 
> 


Enter decimal offset between 0 and 1023 


or 
‘@ to abort the soeration: 
mr] 


enter letter of operation: 


d (isplay) 

g (a execute) 

? (list deoug ops) 

r (emove break) 

s (et) 

t (race) 

q (uit & halt exec) 
>S 


Enter one of choices below: 


m (emory) 
r (egister) 
Ss (tack top) 
b (reak) 
P * (program counter) 
> 


Enter one of following: 
‘'y' - memaddr value prompt 
‘@’ - to abori the operation: 
»Y 
Enter decimal segment * between 0 and 1 


or 
. to abort the operation: 
> 


Enter decimal offset between 0 and 1023 
or 


Jo 


‘@ to abort the operation: 
S 


Enter letter of operation: 


d (isplay) 

gq (0 execute) 

? (jist debug ops} 

r (emove break) 

Ss (et) 

t (race) 

q (uit & halt exec) 
»s 


Enter one of choices dDelow: 


m (emory) 
r (egister) 
s (tack top) 
b (reak} 
: * (program counter} 
> 


Enier one of following: 
‘'y' - memaddr yaiue prompt 
‘@' - to abort the operation: 
>Y 


Enter decimal segment * between 0 and | 


or 
ro to abort the operation: 
> 


Enter decimal offset between O and 1023 


or 
a abort the operation: 
> 


Enter letter of operation: 


d (isplay) 
g {0 execute) 
? (list debug ops) 
r (amove break) 
3 (at) 
t (race) 
: q (uit & halt exec) 
> 


Enter one of choices below: 


m (emory) 


96 


>D 


r (egister) 
$ (tack tao) 
5 (reak} 


* (pragram counter} 


Enter ‘T to continue 


or 
‘@ io abort the cperatican: 


>! 


HH KKH HKKKKKKKKKEKKAKKRKKKKK 


& 


* BREAKPOINTS 
eS 


KKKKKKKEHKKKKRKKKRKEKEKEKRKE 


= 
* 
* 


BRKNUM MEMADDR OPCODE 
0 


WOO Ot IRS — 


oletelerelelel 
06000000 
O0C0GO0OB 
66006003 
GOO00004 
00000002 


(CSTOP 

To) 
IF WRITE 
or Sel 
iSPsHl_ 
lFWRITE 


Enter letter of operation: 


2S 


d (isplay) 


9 (o execute) 
? (list debug ops) 
r (emove break) 


s (et) 
t (race) 


q (uit & halt exec) 


Enter one of choices below: 


>* 


m (emory) 
r feqgister) 
s (tack tap) 
5 (reak) 


* (program counter) 


Enter one of following: 
'¥Y - prog cntr value prompt 
‘@ - to abort the operation: 


>¥ 


Set Program Counter 


Dik 


Enter decimal segment * between 0 and | 


or 
‘@' to abort the operation: 
re 


Enter decimal offset between 0 and 1023 


or 
‘@' to abert the operation: 
>16 


Sorry, non-instr at memaddr. 
Program counter unchanged. 


enter jetter of operation: 


d (isplay) 

g {0 execute) 

? (list debug ops) 
r famove braak) 

s (et) 

t (race) 

a (uit & halt exec) 


>S 
Enter one of choices below: 


m (emory) 
r (egister) 
s (tack top) 
b (reak) 


* (program counter) 
>* 


Enter one of following: 
‘y - prog cntr value prompt 
‘@ - to abort the operation: 
>¥ 
Enter decimal segment * between 0 and | 


or 
‘@ to abort the operation: 
0 


Enter decimal offset Between 0 and 1023 
or 

‘@ to abort the operation: 

>2 

Enter letter of operation: 


d (isplay) 
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g (0 execute) 
? (list debug ops) 
r Cemove break) 
s fet) 
t (race) 
; q (uit & halt exec) 
> 


Enter one of chaices below: 


m (emory) 
r (egister) 
s {tack top) 
b (reak) 
, * (program counter) 
> 


Enter one of followina: 
TY ta confirm display pc 
‘@ to adort the operation 
>! 


PRGM COUNTER in segment 9 at affset 2. 


Enter letter of operation: 


d (isplay) 

g (o execute) 

? (list debug ops) 
r (emove break) 

Ss (et 


t (race) 
q (uit & halt exec) 
>s 


Enter one of choices below: 


m (emory) 
r (egister) 
s (tack top) 
b (reak) 


| * (program counter) 
5 # 


Enter one of following: 
'¥y - prog cntr value prompt 
‘@ - to abort the operation: 
>Y 


Enter decimal segment * between 0 and | 


I9 


‘@’ to abort the operation: 
>0 


Enter decimal offset between O and 1023 


or 
‘@' to abort the operation: 
9 


TRACE / GO GPERATIGNS 


Trace On with Go Uncontrolled 
Enter letter of operation: 


d (isplay) 

q (oa execute) 

? (list debug ops) 

r (emove break) 

Ss fet) 

t (race) 

q (uit & nalt axec) 
>t 


Enter one of following: 
Decimai numober between {| and ZO 
TY for trace on 
‘2’ for ‘trace off’ 
| ‘@ to abort the operation: 
>! 


Enter letter of operation: 


d (isplay) 

g (0 execute) 

? (list debug ops) 
r (emove break) 

S (et) 

t (race) 

q (uit & halt exec) 


>g 


Enter one of choices below: 
Decimal range btwn 1 and 20 
TY - uncontrolled go 


‘@' - io abort the operation 
yl 


00000000 (V_INSTR) ISPSHI_ 
(V_FILE) 2 
(V_SAD) (0:0) 

00000001 (V_INSTR) ISPSHI_ 


(V_MAD) (1:0) 
(V_SAD) (0:0) 
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** BREAKPOINT ENCOUNTERED ** 


“ THE DEBUGGER a 


FEF EFL FE FE FEE FEE IE EEE EE EE EH EEE EE EHH 


Trace Off with Go Uncontrolled 
Enter letter of operation: 


d (isplay) 

9 ‘0 execute) 

? (jist debug ops) 

r (emove break) 

Ss (et) 

t (race) 3 

q (uit & halt exec 
>t 


center one of following: 
Decimal number between 1! and 20 
T for ‘trace on’ 
‘Z for ‘trace off’ 
‘@ to abort the operation: 
»Z 


Enter letter of operation: 


d (isplay) 

q (0 execute) 

? (list debug ops) 
r (emove break) 

Ss (et) 

t (race) 

q (uit & halt exec) 


>g 

Enter one of choices below: 
Decimal range btwn | and 20 
T - uncontrolled go 


| ‘@' - to abort the operation 
>! | 


“* DREAKPOINT ENCOUNTERED ** 


AHHH AIHA IEA HAI HA IO 
* THE DEBUGGER * 
JIB O BIRR HIRO 


Enter letter of operation: 
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d (isplay) 

g (0 execute) 

¢ (list debug ops) 

r (emove break) 

S (et) 

t (race) 

q (uit & halt exec) 
>” 


Enter one of choices below: 


m (emory) 

r (egister) 

s (tack top) 

D (reak) 
P * (program counter) 
> 


enter one of following: 
T to confirm display oc 
‘@' to abort the operation 
>| 


PREM COUNTER in seaqment’O at offset 4 


Go 7 Instructions 
Enter letter of operation: 


d (isplay) 

9 0 execute) 

? (list debug ops) 
r (emove break) 

Ss (et) 

t (race) 

q (uit & halt exec) 


>g 


Enter one of choices below: 
Decimal range btwn | and 20 
T - uncontrolled go 
: ‘@' - to abort the operation 
Ndicated number of insirs done. 
FEI IHF IEE FEE 9EI9OE 9 9EIE 36 9E9E9E 96 9E HE HEHE IHHIEOIEOSIE 


” THE DEBUGGER “ 


FEE KIEL IEE HE EIEIO IE IE EE EEE EE 99 HEINE 


Enter letter of operation: 
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d (isplay) 

g (o execute) 

? (list debug ops) 

r (emove break} 

s (et) 

t frace) 
: g (uit & halt exec) 

> 


Enter one of choices below: 


m (emory) 
r (egister) 
S (tack top) 
b (reak) 


. * (program counter) 
> 


Enter one of followina: 
TY to confirm display pc 
| ‘@ to abort the operation 
>! 


PRGM COUNTER in segment 0 at atfset 6. 


Enter letter of operation: 


d (isplay) 
g (o execute) 
? (list debug ops) 
r (emove break) 
Ss (et) 
t (race) 
s q (uit & halt exec) 
> ‘ 


Enter one of choices below: 


m (emory) 
r (egister) 
s (tack top) 
3 (reak) 
' * (program counter) 
> 


Enter ‘ to continue 


or 
| ‘to abort the operation: 
>! 
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KH HHH HHH HHH HH EHH KK EKESE 


*% 


* BREAKPOINTS 
a 


HHH HHH HH HHH HHH HERR HK KKK KE 


+ 
* 


BRKNUM MEMADDR OPCODE 


0000000C 
6000000D 
0000000B 
00000009 
00000004 
00000002 


“WOON NNO © 


(CSTOP 

rat 
IFWRITE 
ISPSHI_ 
ISPSAi_ 
IFWRITE 


Enter jetter of operation: 


d (isplay) 


9 0 execute) 
? (ist debug ops) 
r famove braak) 


Ss (et) 
t (race) 


q quit & hait exec) 


fi 


Remove Breakpoints 


Enter decimal break number between 0 and ? 


or 
‘@ to abort the operation: 


0 


Breakpoint not in Table. 


Enter letter of operation: 


d (isplay) 


g (o execute) 
¢ (list debug ops) 
r (emove break) 


Ss fet 
t (race) 


q (uit & halt 2xec) 


or 
Enter decimal break number between 0 and 7 


or 
‘@ to abort the operation: 


>f 


Enter letter of operation: 
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d (isplay) 

q (o execute) 

? Oist debug ops) 

r (emove break) 

S (et) 

t (race) 

q (uit & nait exec) 
>d 


Enter one of choices below: 


m temory) 
r (egister) 
s (tack top) 
b (reak} 
; * (program counter) 
> 


Enter T is continue 

or . 
‘@ to abort the operation: 
>t 


SH BH ESHA EAERKEKEKEKLEEE 
% * 


. BREAKPOINTS 
* * 


HHH HH HHH HH HHH HHH HE KHHHHK 


BRKNUM MEMADDR OPCODE 


OOOOOOOC ICSTOP 

0000000D IM_I_R_ 
OOO0000B  JFWRITE 
00000009 = ISPSHI_ 
00000004 = =ISPSHI_ 


WOU RWNN = © 


stepping Through Program Execution 
Enter letter of operation: 


d (isplay) 

3 (0 execute) 

? (list debug ops) 
r (emove break) 

S (et) 

t (race) 

q (uit & halt exec) 


>g 
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Enter one of choices below: 
Decimal range btwn | end 20 
TY - uncontrolled go 
‘@' - to abort the operation 


** BREAKPOINT ENCOUNTERED ** 


SE HE HE HE HE HEE HE HK EH HH ERK KHER 


= THE DEBUGGER a 


SE He He HE HE HE HE HE HE HE HE IE HE HE HE HE HE HE HE HE HE EE EE HE EE 


Enter jetter of operation: 


d (isplay} 

g (0 execute) 

? (list debug ops} 

r femove bresk) 

s fet) 

t (race) 

q (uit & halt exec) 
>d 


cnter one of choices oelow: 


m (emory) 
r (egister) 
s (tack top) 
b (reak} 


* (program counter) 
>* 


Enter one of following: 
Y to confirm display pc 
| ‘@ to abort the operation 
> 


PRGM COUNTER in segment 0 at offset 9. 


Enter letter of operation: 


d (ispiay) 

4 (9 execute} 

? (list debug ops) 

r (emove break) 

Ss (et 

t (race) 

q (uit & halt exec) 
or 
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Enter decimal break number between 0 and ? 
or 

~ to abort the operation: 

> 


Enter letter of operation: 


d (ispiay) 

g (o execute) 

? {list debug ops) 
r (emove break) 

s (et) 

t (race) 

qg uit & halt exec) 


Y 


Enter one of choices below: 
Decimal ranae btn ! and 20 
‘ - uncontrolled go 
‘@ - i0 abort the operatian 


** BREAKPOINT ENCOUNTERED ** 


SHEE KEEL LEEK KEEEEEELETEKEHE 


sf THE DEBUGGER a 


KEELE HH HK EK EKER EEKEHEKREAEELEE 


Enter letter of operation: 


d (isplay) 
g (0 execute) 
? (list debug ops) 
r (emove break) 
s (et) 
t (race) 
: g (uit & halt exec) 
> 


Enter one of choices below: 


m femoru) 
r fagistar} 
3 (tack top} 
b (reak) 


: * (program counter) 
> 


Enter one of following: 


T to confirm display pc 
‘@ to abort the operation 
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>! 


PRGM COUNTER in segment 0 at offset 12. 


Enter letter of operation: 


d (isplay) 

g (g execute) 

? (list debug ops) 
r Cemove break) 

s (et) 

t (race) 

qg (uit & halt exec) 


7g 


Enter one of choices below: 
Decimal range btwn 1} and 20 
T= uncontroiied go 
‘@ - to abort the operation 
>! 


aM: End of execution 32 
_pc=0006C00CL 


SEHK H RELA EKA EERE KERE HA 


> THE DEBUGGER = 


KKK HAAKRAEEAALREREKRKEKRAELECEE 


Enter letter of operation: 


d (isplay) 

g (0 execute) 

? (list debug ops) 

r (emove bresk) 

S (et) 

t (race) 

q (uit & halt exec) 
>q 


Enter one of followina: 
T to END DEBUG AND EXECUTION 


‘@ to abort ooerstion: 
> 


Enter letter of operation: 


d (isplay) 

g (0 execute) 

? (list debug ops) 
r (emove break) 

Ss (et) 
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t (race) 
q (uit & halt exec) 


>g 


Enter one of choices beiow: 
Decimal range btwn 1 and 20 
 - uncontralled co 
‘@' - 10 aborn the operation 
»@ 


Enter letter of operation: 


d(isplay) 

g (o execute} 

? (list debug ops) 

r (emove break) 

s fet) 

t (race) 

q (uit & nalt exec) 
rq 
Enter one of fallowina: 

TY to END DEBUG AND EXECUTION 

| ‘@ to aoort operation: 

>I 


Exiting Debugger, Halting Execution. 
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APPENDIX B: DEBUGGER COMMAND SYNTAX SYMBOLS 


The following symbols are used to describe the general syntax of all the 


debugger comands: 


segment 
offset 


span 


a 
brknum 
Value 


val_type 


DISPLAY 

SET or STACK (depending on context) 

GO AND EXECUTE 

LIST AVAILABLE DEBUG COMMANDS 
REMOVE BREAKPOINT 

TRACE EXECUTION 

MEMORY 

REGISTER 

PROGRAM COUNTER 

RESOURCE SEGMENT NUMBER 

SEGMENT OFFSET ADDRESS 

NUMBER OF OPERATIONS TO BE PERFORMED 
ONE ITEM IN BRACES MUST BE CHOSEN 
OR 

ON or OK (depending on context) 

OFF 

BREAKPOINT NUMBER 

DATA VALUE 

DATA TYPE 
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APPENDIX C: DEBUGGER PROGRAM FILES 
Debugger Header File 


/* DEBUG.H : Basic typedefs, defines, and globals for the AM debuqger. 


-~AM version |.d - 2100 
-This file 1s included in all the debugger modules. 


Chanqes: 
a 


*\fndef DEBUG_H 
* define DEBUG_H 


/* displau detines */ 


+ det ine DISPLMEM O00 
*define DISPLAEG. 010 
*derine DISPLSTK 020 
*define DISPLBRK 030 
# define Disrl FE 040 
/* go define */ 

* define GOEXEC 100 
/* help define */ 

# define HELP 200 


/* remove breakpoint define */ 


* def ine REMOVBRK 300 
/* set defines */ 

* define SETMEMR A0N0 
*def ine SETREGR Al0 
=define SETSTK 4?! 
*det ine SET GRK 45 
* define SET_PC 440 
/* trace defines */ 

* def ine TRACEOP 500 


/* quit defines */ 


7\ 


*dertine 


QUIT DEBG 


/* atomic tupes and defines */ 


* define 
*def ine 
=derine 
*define 
a] 


* define 
*define 
ay 

# define 


*define 
inDut 


* define 


*define 
*define 
typedef 
eee 


long 

lona 

VAL 
. BCOLN abortop: 
tj OPTION; 


tupedef 


address memaddr; 
short opcdval; 


} BREAKS; 


Fondif 


int 


struct 


oprtn; 
rngebegn; 
rnqespan: 


“Val: 


UNDEF ND 


MAABRKS 
MAXEAECS 


MAXLINES 


MADECSTR 


MXHEASTR 


MAINPSTR 


TRACEON 
TRACEOFF 


600 


= 
0 


/* Max * of breaks allowed 


/* Max * instrs to execute 
beforereturnina to debug */ 


/* Max items ondebua screen 


/* Max chars in DECIMAL input 
String; lO for chars in INT 
sirina, | for null siring 
‘erminator and! for sian * 


/* Max chars in HEXIDECIMAL 


string; 4 for chars in INT 
string and 1 fcr null string 
terminator. */ 


/* Max chars in PROMPT input 
string; 1 for char in prompt 
string and! for null string 
terminator. * 


/* Couldn’t use 1 due to span 
conflict.*/ 


BOOLN; /* Sonamed to prevent AM def conflict */ 


{ 


/* VAL tupeder in amtupe.h */ 


struct { 


Debugger Driver File 


/* DEBUG.C : Driver module for the AM debugger. 
-AM version 1.0 - Zi00 
Chanades: 


ie / 


#include “amdef.h” 
#include “amtupe.h” 
*include “amextern.h” 
#inciude <setimp.h> 
*inciude “deDug.h” 


/* EXTERNAL REFERENCES */ 


extern imp_buf *_coniext; /* defined in main(j/am.c */ 
extern char *stripbik(); /* from debugutl.c */ 
extern short getopnd(); /* fromaminsir.c */ 
extern short gtopcdext /* all from debugopr.c */ 
extern isplmem(); 

extern displiregt); 

extern displstk(); 

extern displbrkt ); 

extern displ_pc(); 

extern oexec(); 

extern elp(); 

extern removobrk(); 

extern setmemr(); 

extern setrear(); 

extern setstkU); 

extern setDrk(); 

extern set_pc(); 

extern traceop(); . 

extern quitdebg(); 


/* GLOBAL VARIABLES */ 


CP TION 


deba_opt: 


/*GETRESRC() 
function: 


-This function prompts the user for the resource to be 
operated upon and returns the key character for the 
resource indicated. 


interface: 


12 


called by: 


getoor() 
calls | 
stripbik()/debuaqutl.c 
errors: 
my 
cnar 
aetresrc() 


{ char *strptr; 
char inpstr[MXINPSTR]; /* MXINPSTR = 2 */ 


de { 
printf(sidout,"Enter one or cnoices below:\n\n"). 

fprintf(stdout,"\t\tm (emory)\n\t\tr (egister)\n"); 

forintf(stdout,"\t\ts (tack top)\n\t\tb (r2ak)\n") 


fprintf(stdout,"\t\t® (program counter)\n\n’): 





fscanf(stdin,”¥1s”,inpstr ); 
strptr = stripbik(inpstr): 
if (strien(strptr) == 0) { | 
Eee -a choice entered.\n”); 
fprintf(stdout,"One MUST be specified.\n\n"); 
else . 
switch(strptr[0]) { 
case 'm’': return(’m’); 
case 'r’: return(‘r’): 
case's’: return(’s’); 
case 'b’: return(’b’); 
case": return(): 
der auit: 


fprintf(stdout,”"Invalid response.\n”); 


athe (TRUE); 
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/*GETOPR() 
function: 
-This function maps the ascii user operation request 
Into an debugger operation code and returns the code. 


interface: 


called bu: 
debua() 


calls: 
stripbik()/debuguti.c 
getresrc() 


Oorrors: 
” 


int 
getopr() 


{ char *sirptr; 
Char inpstr{MXINPSTRI]; i esti 2 */ 


do { | 
fprintf(stdout,"\nEnter letter of operation:\n\n"); 
fprintf(stdout, "\t\td + Pla \\n\t\tg (0 execute)\n"); 
fprintf(stdout,"\t\t? (list debug ops)\n’): 
fprintf(stdout, ’\t\tr ar break) \n\t\ts (et)\n”): 
fprintf(stdout,"\t\tt (race)\n\t\tq (uit & halt exec)\n\n"); 
fscanf(stdin,”%1s",inpstr); 


strptr = stripbik(inpstr); 


if (strien(strptr) == 0) { | 
fprintf Se operation entered.\n”); 
fprintf(stdout,”"One MUST be specified.\n\n"); 


else 
switch(strptr{0}) { 
Case ‘d’: 
case ’s’: switch(getresrc()) { 
case 'm’: if reo) == ‘d’) 
return(DISPLMEM); 
return(SE TMEMR); 


case 'r’: if (strptr[O] == ‘d’) 


return(DISPLREG); 
return(SETREGR); 
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case's’: if (SWieigiOl==sae 
return(DISPLSTK); 
raturn(SETSTK); 
case 'b’: if (6teptr(Ol== a”) 
return(DISPLBRK): 
_ return(SET BRK); 
case '*’: if (strptr[O] == ’d’) 
return(DISPL_PC); 
return(SET_PC); 
} 
case 'g’: return(GOEXEC); 
case '?’: return(HELP); 
case 'r’: return(REMOVEBRK); 
case 't’: return(TRACEOP); 


case 'q’: return(QUITDEBG); 


default: fprintf(stdout,”Invalid cperation.\n’); 


} 
_ 
while (TRUE); 
/*DEBUG() 
function: | | | | 
-This is the driver function for the interactive debug- 
ger. 
interface: 
x) breakflg/am.n _ 
oy instruction pointer 
(p) mM program counter value | 
(g) deba_oot Variable for debuager operation 
called by: - | 
main()/am.c 
calls: 


getopnd()/aminstr.c 
gtopcdex()/debugopr.c 
qetopr()/ 
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dispimem()/debugopr.c 
displreq()/debugopr.c 
dispistk()/debugopr.c 
displork()/debugopr.c 
dispi_pc()/debugopr.c 
goexec()/debugopr.c 
Deib\)/ cebuaaeic 
removork()/debugopr.c 
setmemr()/dedugopr.c 
setregr()/debugopr.c 
setstk()/debugopr.c 
setbrk()/debugopr.c 
set_pc()/debuaqcepr.c 
traceop()/debugqopr.c 
guitdebgq()/debugopr.c 


errors: 
amy 


debua(i,m)} 
INSTR *i: 
MAD *m: 


{ short brknum; 
OPTION *opt; 
BOOLN diff_pc = FALSE; 


fprintf stdout ON £\ £96 9 96 IE EE HE IE IE HE IE IE IE IE IE IE FE FE IE IE IE FE IE IE IE IE IE IE ; 


fprintf(stdout, "\t\t* THE DEBUGGER *\n"); 
fprintf StGOUt, "Vt \ te 98 HE He HE 98 9 9 He IE 9 EE HE I IE IE EEE EEE \ 1”): 


/* Exchange the debug opcodefor the reqular opcode */ 


if (breakflg) { | 
brknum = getopnd(i->val[0].opcdval); 
i->val{0].opcdval = gtopcdex brknum); 
breakflg = 0; 


opt = &debq_opt: 


do { 
Opt->opritn = UNDEFND; 
opt->rngebegn = UNDEFND; 
opt->rngespan = UNDEFND; 
opt->val = NULL: 
opt->abortop = FALSE; 


switch(getopr()) { 


77 


case DISPLMEM: 


case DISPLREG: 


Case DISPLSTK: 


case DISPLBRK: 


case DISPL_FC: 


case GOEXEC: 


case HELP: 


case REMOVBRK: 


case Sc TMEMR: 


case SE TREGR: 


case SETSTK: 


case SETBRK: 


case SET PG: 


case TRACEOP: 


case QUITDEBG: 


J 


dispimem(opt); 
Dreak; 


dispireaq(opt): 
break; 


dispistk(opt); 
Dreak: 


displbrk(opt); 
break; 


dispi_pc(opt); 

break: 
oexec(opt); 
reak; 


heip(oot); 
break: 


removork(opt); 
Dbreak; 


setmemr(opt); 
break: 


setregr(opt): 
break; 


setstk(opt); 
break; 


setbrk(opt); 
break; 


et_pc(opt); 


S 
break; 


traceop(opt); 
break; 


quitdeba(opt); 


if ((Xopt->abortop)) && (opt->oprtn == GOEXEC)) { 


if Cdififipe) { 


debugflag = 0; 
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/* Keeps debugger from 
being called after setjmp() 
in mainQ/am.c */ 


longjmp(_conitext, |); 
return; 
} 
if (lCopt->abortop)) && (opt->oprin == SET_PC)) 
diff_pc = TRUE; 


} 
while (TRUE): 
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Debugger Operations File 


/* DEBUGOPR.C: This module contains the SET initialization functions 
for the AM debugger. 


-AM version 1.0 - Z100 
Changes: 
ov 
Zinclude “amdef.h” 
#inciude “amtype.n’ 
#include “amextern.h” 
#include “debug.h" 


/* EXTERNAL FUNCTIONS */ 


extern char *stripbik(); /* both from debuautl.c */ 
extern sir 2hex(); 
extern str 2dect); 
extern address cnv2adar(Q): 
extern short qgetopcode(): /* both from aminsir.c */ 
extern short  getopnd(); 
extern char *omalloc(); /* all from amstate.c */ 
extern fmalloc(); 
extern VAL “hetchim):; 
extern STATE storem(); 
extern VAL *fetchr(); 
extern STATE — storer(); 
extern VAL *topstk(); 
extern storestk(); /* an EXCLUSIVE debugger function 
in 
in amstate.c */ 
extern char *amdefs(): /* fromamcutl.c */ 
/* _OCAL GLOBAL VARIABEES €/ 
BCOLN Inst_get = FALSE; /* When true, used to keep getvaiue() from 
allowing recursive calls to get_inst() */ 
long —seqnum; 
long —oftf set; 
static BREAKS brktable[MAXBRKS]; 
Static short mt slots[MAXBRKS]; 
Static short topslot; 


static BOOLN mt_init = FALSE; ee 
/* Teils if mtslots(] initialized. Note the 
initialization is done once! (ref ’C’ manual )*/ 


/*GTOPCDEX() 
function: , | 
-returns the opcodestored in the drxtable at slot ‘Brknum’. 


inter face: 

P brknum 

q) brktable(] 

called Du: 
debug()/debug.c 
copyvail()/amcutl.c 
showmem()/amcutl.c 

calls: 


errors: 


=f 
gtopcdex(brknum) 
snort DrKnum; 
if (orktable[brknum].opcdval == UNDEFND) 
return(0); 
return(brktable[brknum].opcdval); 
/*GETRANGE() 
function: | 
-This function prompts the user for range value. 
interface: 
D) opt 
p) maxnum 
called Du: 
dipsimem() 
displregq 
str 2dec()/debugutl.c 
Calls: 


errors: 


8 | 


m/ 


aetrange(opt,maxnum) 
OPTION *opt: 
Int maxnum; 


{  chare*strotr: 
char inpstr(MXDECSTR]; 
lond number; 
BOOLN validnum; 


do { 
pent i sidout OPERATION SPAN *\n\n’); 
fprintf(stdout,”Enter decimal number between | "): 
fprintf(stdout,” and ¥d\n\t\tor\n”,maxnum); 
fprintf(stdout,”’"®’ to abort the operation: \n”); 
fscanf(stdin,"%10s” inpstr); 


sirptr = stripbik(inostr); 


if (strptr{O] == '@’) { 
opt->aboriop = TRUE: 

return, 

} 


str2dec(strotr &validnum,&number); 

if (validnum) { 
fprintf(stdout,”Invalid number entered.\n’); 
continue; 


} 
if ((number < 0) | | (number > maxnum)) { 


fprintf(stdout,"Number out of range.\n”); 
continue; 


opt->rngespan = number; 
return; 


iit (TRUE); 


HuNCION: : 

-This function prompts the user for segment value. 
inter face: 

P? mxsegnum 

p) abortop 


Called by: 
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dipsimem() 
dispireg 
dispistk 
setmemr() 
setrear() 
seistk 
setdrkt) 
sei_pct) 
get_rad 
get_sad 
get_mad() 


calls: : 
stripbikQ)/debuaut!.c 
sir 2gec()/debugui!.c 


errors: 


 f 


lona 

( et_seqm(aboriop, mxsegnum) 
OOLN *abortop; 

int Mxseqnum: 


{ char *strptr: 
char inpstr/MXDECSTR]; 
long number; - 
BOOLN validnum; 


do { 
fprintf(stdout,”Enter decimal segment * between 0 ”); 
fprintf(stdout,” and ¥d\n\t\tor\n”,mxsegnum); 
fprintf(stdout,”"@’ to abort the operation: \n”); 
fscanf(stdin,”"%10s”,inpstr): 


strptr = stripblk(inpstr); 


if (strptr{0] == '@") { 
*abortop = TRUE: 
matt. : 


sir 2dec(strotr.&validnum,&number ): 

if (lvalidnum) 
fprintf(stdout,”Invalid number entered.\n"); 
continue; 


if ((number >= 0) && (number <= mxsegnum)) { 
return(number); 
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printf(stdout,”"Segment * out of ranae.\n"); 
continue; 


ie (TRUE); 
} 


/*GE= GFSTl 
function: _ | 
-This function prompts the user for offset vatue-. 


interfaca: 
iP} mxoffset 
Dp) abortop 


called Dy: 

dipsimem() 
dispiregy 
setmemr() 
setrear() 
setbrk() 
set_Dci) 
get_rad 
get_sad 
get_mad() 


calls: | 
stripblkQ/debugutl.c 
str2dec()/debuqutl.c 


errors: 
ay 


getcot st(abortop, mxoffset) 
OOLN *abortop; 
long mxoffset; 


{ char *stroptr: 
char inpsir[(MXDECSTRI; 
lona number: 
BOCLN validnum; 


do { 
fprintf(stdout,”Enter decimal offset between 0 ”); 
fprintf stdout,” and ¥d\n\t\tor\n” mxoffset); 
fprintf(stdout,""@’ to abort the operation: \n’): 
fscanf(stdin,”%10s",inpstr); 
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strptr = stripbik(inpsir): 


csinpinio|| == '@’) { 
*abortop = TRUE; 
return(0); 


sir 2dec(sirpir,&validnum,&number ): 

if (lvalidnum) { 
fprintf(stdout,”"Invalid number entered.\n”); 
continue; 


if (number <0) || (number >mxoffset)){ 
Iprinti(stdout,”"Offset out of range. \n"); 
continue; 


} 


return(numpber ); 
while (TRUE): 


} 


/*DISPLMEM() 
function: | | | 
-This function periorms the ‘display memory’ operation. 


interface: 

opt 
—numusrseg/am.h 
_pc/am.h 
_mem{]/am.h 
_seqnum 
_offset 
debatask/am.h 


x Onx x xwo 


called by: 
debug()/debug.c 


calls: 
getrange( 
retcnm()/amstate.c 
showmem()/amcutl.c 
cnv 2addr()/debugutl.c 
stripbik()/debuqutl.c 
get_seam() 
qet_ofst() 


errors: 
*/ 
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dispImem(opt) 
OPTION *oot; 


{ char *strptr; 
char inpstr[MXINPSTRI]; 
lond |; 
long number: 
lona totalmem = 0; 
BOOLN validnum:; 
MAD tmpaddr; 


Opt->opritn = DISPLMEM; 


do { 
fprintf(stdout,"Enter one of following:\n"); 
fprintf stdout."\t\t’v’ - addr value orompt\n’); 
fprintf(stdout.’\i\t'™’ - for current PC vaiue\n”): 
fprintf(stdout, \t\t'@’ - to aport the operation: \n"); 
‘scani(stdin,’¥1s” inpsir): 


Sirptr = stripbik(inpstr); 


ife(stepir(O] == ‘@r) { 
opt- aie = TRE; 
return: 


} 


if (strptr[O] == ’*') { 
oem = (_pc.val & X_SEGMSK) >> X_SEGSFT; 
fiset = _pc.val & X_ADRMSK; 
getrange(opt MAXLINES); 
brea 


} 


if (strptr{[O] == 'v’) { 
_segnum = get_seqm(&opt->abortop, _numusrseg - 1); 


if (opt->abortop) 
return: 


_offset = aet_ofst(&opt->abortoo, 
_mem{_seanum. siz2 - 1); 


if (opt->abortop) 
return; 


getrange(opt,MAXLINES); 


break; 
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fprinif(sidout,”Incorreci response. \n"); 


} 
while (TRUE): 


if (opt->abortop) 
return; 


debgqtask = |; 
fprintf(stdout,"Memaddr Contents\n\n"); 
if (opt->rngespan == UNDEFND) { 


tmpaddr.val = cnv2addr{_seanum_offset): 
showmem(&tmpadar ,f etchm(&tmpaddr,Q)); 


else { 
| = Q; 
while({ti < opt->rnqespan) Bok (_s2anum < _numusrseq)) 
tmpaddr.val = cnv2addr(_seanum_offset); 
snowmem(&tmpadar,fetchm(&impadar ,Q)); 
ies 
oT fset++: 
if (_offset == _memi_seanum|.size) { 
_offset = 0; 
—seqgnum++; 
} 
} 
debgtask = 0; 
} 
/*DISPLREG() 
function: | | | | 
-This function performs the ‘display register’ operation. 
Interface: 
(p) opt 
3 ) _numreqsea/am.h 
(x) real]/am.n 
g) —seqnum 
_offset 
x) debgtask/am.h 
called by: 
debug()/debug.c 
Calls: 
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getranae() 
fetchr0Q)/amstate.c 
ete wie  Yp amcutl.c 


env 2addr()/debuauti.c 
Sstripbik()/debuqutl.c 
get_seqm() 
qet_orst() 
errors: 
ay 
dispireaq(opt) 
OPTION *opt: 
{ char *strptr; 
char inpstr[MXDECSTRI]; 
long !: 


long number; 

long numreas = 0: 
BOOLN validnum: 
RAD tmprea; 


Opt->oprimn= DISRMREG: 


do { 
fprintf(stdout,’Enter one of following:\n"); 
fprintf(stdout,"\t\t'v’ - addr value prompt\n’); 
fprintf(stdout,"\t\t'@’ - to abort the operation: \n"); 
fscanf(stdin,"¥1s”,inpstr); 


strptr = stripblk(inpstr); 
if (strptr[O] == '@’) { 


opt->abortop = TRUE; 
return; 


if (strptr[O] == 'v’) { 
_seqnum = get_seqm(&opt->abortop, _numregseg - |); 


if (opt->abortop) 
return: 


_orfset = get_cfsi(&opt--aportop,regi_segnum|].num 
if (opt->abortop) 
return; 


getrange(opt,MAXLINES); 
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break; 


J 


forintf(stdout,"incorrect response.\n”); 


aes 
while (TRUE); 


if (opt->abortop) 
reiurn; 


debatask = |; 
fprintf(stdout,"Reanum Contents\n\n’); 


if (opt->rngespan == UNDEFND) { 
tmpreg.val = cnv2addr(_seqnum,_offset); 
showmem(&tmprea,fetchr(&tmoreg,Q)): 


} 
else { 
|= 0; 


while((i < opt->rnaespan) && (_segnum < _numreaseg)) { 
imoreg.val = cnv2Zaddr(_seanum_offset); 
showmem(&impreg,fetchr( &impreg,Q)): 
i++; 
_Offsettr; 
if (offset == _regl_seqnum].num) { 

offset = 0; 

_seqnum++; 


debgtask = 0; 


/*DISPLSTK() 
function: _ | | 7 
-This function performs the ‘display stack’ operation. 


interface: | 
(D) ODt 
x) numsixseg/am.h 
x) —stk(]/am.h 
_segnum 
x) debgtask/am.h 


called by: 
debug()/debug.c 
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ay 


Calls. 
cnv 2addr()/debugut!.c 
stripbik()/debugutl.c 
get_segm( ) 
get_of zt() 


Zhen oe: 


displstk(opt) 
OPTION apt: 


char *strptr; 

Char inpstr[MXDECSTR]; 

long stksize = 0; 

fee 

SAD stktop; 

opt->oprtn = DISPLSTX; 

do { — | 
fprintf(stdout,"Enter one of followina:\n"): 
fprintf(stdout,"\t\t’v’ - segment value prompt\n’); 
fprintf(stdoui,"\t\t’@’ - to abort the operation: \n”); 
fscanf(stdin,”¥ls”,inpstr); 
Strptr = stripbik(inpstr); 
if (strptr[O] == '@’) { 


Opt->abortop = TRUE; 
return; 


if (SstrpthOMe="’y’) { 
_seqnum = get_segm(&opt->abortop, 
_numstkseg - |); 
break; 


} 


forintf(stdout,"Incorrect response.\n”): 


while (TRUE); 


if (opt->abortop) 
return; 


debgtask = |; 


_offset = stk{_segnuml].size - |; 
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stktop.val = cnv2addr{_seanum,_of fset): 


fprintf(stdout,”"Top of Stack:\n’); 
showmem(&sixtop,topstk(&stktop,Q)): 


debgqtask = 0; 


/*DISPLBRK() 


function: — | | | 
-This function performs the ‘display breaks’ operation. 


interface: 
D) opt 
q) brktablef] 
gq) mt_init 
q) mt_slots{] 
q) topsiots 


Called Bu: 
debua()/debua.c 


calls: 
Sir ip otk deDudutl.c 
amdefs()/amcutl.c 


errors: 
si) 
displbrk(opt) 
OPTION *opt: 
{ char *strp 
char inpstr[NXINPSTRI 
short i; 
opt->oprtn = DISPLBRK; 
do { 


fprintf(stdout,"Enter ‘!’ to continue\n\t\tor\n”); 
forintf stdout.”"@’ to abort the operation: \n”): 
iscant(stdin,’ 'Y1g" inpstr ); 


sirptr = siripbik(inpsir); 

if (strptr[O] == '@’) { 
opt->abortop = TRUE; 
return; 


} 
if (strptr[O) == '!’) 
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Or eak; 


fprintf(stdout,"Incorrect response.\n"); 


while (TRUE); 


if Umti a { 
for (i = O:i < MAXBRKS: I++) { 
mt_slotsf{i] = i; 
brktable[i]memaddr = = 0: 
brktable[i].opcdval = UNDEFND; 


topslot = MAKBer> — |: 


mt_init = TRUE; 

forintt Saou. NL \ £4 74 9 5 IE I 9 IR FE IE IE IE IK OE IE IE HE IE FE IEE IE IE Py! iF 
fprintt(stdout,’\t\i* Nin); 
fprintr(sidout,"\iiit =BREAKPOINTS aes 
fprintf(stdout, ’\t\t* ONE); 


forint Stdout,’ NG \, [75 7 FE IE IE IK IE IE IE FE IE IE IE IE IE FE IE FE IE HE HEHEHE 1 \ Fy! By - 
fprintf(sidout,"BRKNUM MEMADDR OPCODE\n"); 


for(i = 0; i < MAXBRKS; i++) { 
if (brktableli].opedval = = UNDEFND) 
fprintf(stdout, "6 d\n" si); 


fprintf(stdout,"%6d =”, i); 
fprintf stdout,"%O8!lx |”, brktable[i].memaddr): 
fprintf(stdout,”"¥s\n", amdefs(brktablefil. opcdval)); 


else 


/*IEEL.PE() 
function: 
-This function performs the ‘display program counter’ 
operation. 


interf ace: 
_—seqnum 
3s _ofiset 


Called by: 
debug()/debug.c 


calls 
stripbIk()/debugutl.c 


$2 


mi 


eh OF s: 


displ_pc(opt) 
OPTION *oopt; 


{ 


char “strptr; 
char inpstr[MXINPSTR]; 


opt->oprtn = DISPL_PC: 


do { 
fprintf(stdout,’Enter one of foilowing:\n"); 
fprintf stdout,’ \tNt'l’ to confirm display pc \n’ yi 
fprintf(stdout.”\t\t'@’ to abort the operation \n"); 
fscanf(stdin,’ "Ys" Jnpsir); 


strptr = stripbik{inpsir): 


if (Strptri@] == ev) { 
Opt->abortop = TRUE; 
return; 


if are nod 
uae oe (_pc. val & X_SEGMSK) >> X_SEGSFT; 
_ofiset =_pc.val & X_ADRMSK; 
f printf (stdout "\n\t\tPRGM COUNTER in segment ¥ld ”, 


fprintf(stdout,"at offset % sid \n" "of fset); 
return; 


} 


fprintf(stdout,”"Incorrect response.\n"): 
while (TRUE); 


/*GOEXEC() 


function: — 
-This function initiates the rest of the prompts for the 
‘GO execution’ operation. 


interface: 
D) opt 
¥) left2do/am.h 
x) debgcntl/am.h 


Called bu: 
debug()/debug.c 
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Gauss 
ee debugut!.c 
stripblk()/debuaqut!.c 


errors: 
oe 


oper) 
PTION *opt; 


{ char inpstri{MXDECSTRI; 
CNar ™Str: 
BOOLN validnum; 
long number; 


opt->oprtn = GOEXEC: 


do { 
fprintf(stdout,”Enter one of choices below:\n’); 
fprintf(stdout, "\t\tDecimal ranae dDtwn | and d\n" MAXEXECS); 
fprintf(stdout,"\i\t'l) - uncontrolled qo\n’); 
fprintf(stdout."\i\t’@’ - to abort the operation\n\n’): 
fscanf(sidin,’¥lis” inpsir); 


str = stripbik(inpstr); 


if (Stri0] == w@) { 
opt->abortop = TRUE; 
return; 


if (SteiO) == 1) 
return; 


str2dec(str,&validnum,&number ); 

if (lvalidnum) | 
fprintf(stdout,"Invalid number entered.\n"); 
continue; 


} 


if ((number <1) || (number > MAXEXECS)) { 
forintf(sidout,”’Number out of ranae.\n"); 


continue; 
} 
left2do = number; 
debgcntl = 1; 
return; 
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whila(T RUE); 


PaeLe() 
function: _ | | | 
-This function displays the debugger commands available. 
intert ace: 
| (p) opt 
Called bu: 
debua()/debua.c 
Calls: 
errors: 
a 
neiptopt) 
OPTION *opt; 


f char str(MXINPSTR]; 


Opi->oprin = HELP; 

fprintf(stdout,’\t\t | Debuaaer Commands \n"): 
fprintf SEAOUL, *\ t\ £29 2 Hee 2 ae 98 9 He 9 3 98 96 E96 96 9 9898 9 Ly") 
fprintf ee saat a cemory), Cro polis span\n"); 
fprintf(stdout,” t'r'(egister), seg:offset, span\n” 


fprintf(stdout,” \t’s'(tack - top only), seg\n”); 
fprintf(stdout, ° \t'b'(reaks - ali)\n"’; 
fprintf(stdout,” \t’*'(program counter )\n"); 
fprintf ere, Q) \tCl’ i <instrs>}\n"); 
fprintf(stdout,”’?'(list available debug commands)\n’); 


fprintf(stdout,”’s‘(et) — \t'm‘(emory), sea:offset, val_type, val\n”); 


fprintf(stdout,” \t'r'(egister), seg:offset, walling, val\n”): 
fprintf(stdout,” \t's'(tacktop, seq, val_type, va A): 
fprintf(stdout,” \t’b'(reak), seg:otfset\n 

fprintf(stdout,” \t'*(program counter), seg:offset\n"): 
fprintf(stdout,”’t’(race) \t’l’Con < TRACE\n”"): 
fprintf(stdout,” \t’'z'(off) STARTED\n”); 
fprintf(stdout,” == \t forninstrs BY 'GO'>\n"); 
fprintf(stdout,’’q’(uit dgpug and halt execution)\n”); 





'printf(stdout,”Leaend: - or, [] - optionai, <> - comment ”"); 
Iprint{(stdout,”_ {J - Must choosean item.\n\n"); 
fprintf(stdout,”Enter non-blank char to continue.\n”); 
fscanf(stdin,”%1s” str); 
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/*REMOVBRK() 


ff 


function: 
-This function removes a breakpoint at a specified 
memory location. 


interface: 


p 

X —, 
g) mt_init 

q) brktable[] 

a) topsiot 
mt_slots{] 

&) Q/am.n 


called bu: 
debua()/debua.c 


calls: 
siripbik()/debuautl.c 
str 2dec()/debuautl.c 
fetchm()/amstate.c 
storem()/amstate.c 
cnv 2addr()/debuautl.c 


Grrors: 


removobrk(opt) 
OPTION *opt; 


{ 


char *strptr; 

char inpstr[MXDECSTR]; 
int i; 

long number; 

BOOLN validnum; 

V AL VV: 


MAD m; 
BREAKS *brkptr; 


Opt->oprtn = REMOVBRK; 


Go", 
fprintf(stdout,”Enter decimal break number “); 
fprintf stdout,"between 0 and ¥d\n\t\tor\n" MAXBRKS- 1); 
fprintf stdout.”"@’ to abort the operation: \n" 
fscanf(stdin,"%4s" inpstr); 


strptr = stripblk(inpstr); 
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iT GirptrObe=ee")_{ 
opt->abortop = TRUE; 
return; 


} 


str 2dec(strptr &validnum,&number ); 

if (lvalidnum) | 
fprintf(stdout,”Invalid number entered.\n”); 
continue; 


} 


if ((number < 0) || (number > (MAXBRKS - 1))) { 
fprintf(stdout,’Number out of range.\n"); 


continue: 
J 


Oopt->rngebegn = number; 
or 2ak; 


while (TRUE): 


if (mtinit) { | 
for (i = O:} < MAXBRKS; i++) { 
mt_slots{i] = i: 
orktablelij.memaddr = 0; 
brktableli].oocdval = UNDEFND: 


topslot = MAXBRKS - 1; 
mt_init = TRUE; 


if (topslot > MAXBRKS - 2) { 
f printt (stdout,"Break Table empty\n”); 
return: 


if (brktable[opt->rngebegnl.opcdval == PREF) | 
f ~ se (stdout,"Breakpoint not in Table.\n"); 
return; 


debatask = |; 


orkptr = &brktabielopt->rnqebeani: 

m.val = Drkptr->memadar; 

v = fetchm(&m,Q); 

ee, = brkptr->opcdval:; 
storem(v,&m,Q); 

brkptr->memaddr = 0; 

brkptr->opcdval = UNDEFND; 
mt_slots[++topslot] = opt->rngebegn; 
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depetasK = 0; 


/*TRACEOP() 


ai 


function: — 
-This function initiates the rest of the prompts for the 
the ‘'traceop’ operation. 


intertacgz: 
Dp) opt 
¥) debacnil/am.h 
%) left2do/am.h 
x) dbatrace/am.h 


called bu: 
debug()/debug.c 


Calls: | 
me debugoor.c 
sir Zdect )/debugopr.c 


Crrors: 


traceop(opt) 
OPTION “opt: 


{ 


char *strptr; 

oo inpstr[MXDECSTR]; 
Int 1; 

long number; 

BOOLN validnum; 


opt->oprtn = TRACEOP; 


do { 
fprintf(stdout,”Enter one of following:\n"); 
fprintf(stdout,”\t\tDecimal number between | and ”); 
fprintf(stdout,”“¥d\n",MAXLINES); 
fprintf(stdout,"\t\t'l’ for ‘trace on’\n"); 
fprintf(stdout,"\t\t’2’ for ‘trace off'\n"); 
fprintf(stdout,’\t\t’@’ to abort the operation:\n”): 
fscant(stdin,’ 10s” inpstr): 


strptr = stripbik(inpstr); 
if (strptr[O0] == '@’) { 


opt->abortop = TRUE; 
return; 


if (strptr(O] == '’) { 
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opt->rnaespan = TRACEON; 
dbatrace = |; 

depgcnt! = 0; 

return; 


if (strptr[O] == 'z’) { 
opt->rngespan = TRACEOFF; 


dbatrace = 0; 
deDgcntl = 0; 
return; 


} 
str 2dec(strptr &validnum,&number ): 


if (1validnum) { | 
fprintf(stdout,”Invalid number entered.\n”); 
continue: 


if (number <1) | | (number > MAXLINES)) { 
fprintf(stdout,"Number out of range.\n’); 
continue; 


} 


left2do = number: 
dbatrace = |; 
debgcntl = 1; 
return; 


} 
while (TRUE); 
} 
y *QUITDEBG() 
function: 


-Uponuser confirmation, this function exits the debug- 
ger and halts program execution. 


interface: 
(p) opt 


Called bu: 
debuq()/debua.c 


calls 
stripblk()/debugopr.c 
exit() 

errors: 


zt / 


99 


OPTIC 


{ 


ltdeba(opt) 


* Opi: 


Char “Sin: 
char inpstr[MXINPSTR]; 


opt->oprtn = QUITDEBG; 


do { 


fprintf(stdout,"Enter one of following:\n”); 
fprintf(stdout,"\t\t'l’ to END DEBUG AND EXECUTION\n”); 
forintf(stdout,"\t\t'@' to abort operation:\n’): 
fscant(stdin,’%1s” inpstr); 


sirptr = stripbik(inpstr); 


if (strptr[O] == '@’) { 
Opi->abortop = TRUE: 
return; 


J 


if (strptr(O] ==!) § | | 
Ve Debugger, Halting Execution.\n"); 

, exit (0 

j 


fprintf(stdout,”"Incorrect response.\n’); 


} 
while (TRUE); 


} 
/ *GET_BOOL() 
function: 


) 


-This function initializes the boolval structure, promp- 
ting the user to enter the actual value part of the 
structure. 


interface: 


D) Vv 
p) abortop 


called by: 


calls 


Qrro;rs: 


detvaiue() 


stripblk()/debugutl.c 
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Beeepol(v.anortop, 
ia: 
BOOLN *abortop; 


{ char *strptr; 
char inpstr[MXINPSTR]; 


v->pdoolval.tupe = V_BOOL; 


do { 
fprintf(stdout,”Enter letter of your choice:\n”); 
forintf stdout "\t\tt(rue)\n\t\tftaise)\n"); 
fprintf(stdout, "\t\t@(abort cperation\n"); 
fscanf(stdin,’¥Is”,inpstr); 


strptr = stripblk(inpstr); 


switch(strptr{0l) { 
case ‘it’: v->booival.val = 't’; 


return: 
case 'f’: v->boolval.val = ‘f’: 
return; 
case '@’: *abortop = TRUE; 
| return; 
default: fprintf(stdout,"Bad response.\n”); 
while (TRUE); 
} 
/*GET_NAT() 
function: a tae 
-This function initializes the natval structure, promp- 
ting the user to enter the actual value part of the 
structure. 
interface: 
Pp) v 
Dp) abortop 
Called buy: 
getvaiue() 
Calls: | 
neat 
str2dec()/debugutl.c 
errors: 
a 
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nae | 
AL *V; 
BOOLN *abortop; 


{ long number; 
BOOLN validnum; 
char *strptr; 
char inpstr[MXDECSTR]; 


v->natval.type = V_NAT; 


do { 
fprintf(stdout,”Enter decimal number between\n”): 
fprintf(stdout,’\t\tO and 65535\nor\n"); | 
fprintf(stdout,“\t\t'@’ to abort the operation:\n’): 
fscanf(stdin,”"%10s”",inpstr): 


strptr = stripbik(inpstr): 
if (strptr[O] == '@’) { 
*aportop = TRUE; 
return; 
str 2dec(strptr,&validnum,&number ): 
if (lvalidnum) { 


fprintf(stdout,"Invalid number entered.\n’); 
continue; 


if ((number < 0) | | (rumber > 65535)) { 


fprintf(stdout,”"Number out of range.\n”); 
continue; 

} 

v->natval.val = number; 

return; 


<a (TRUE); 


} 
/*GET_INT() 
function: 
-This function initializes the intval structure, promp- 
ting the user to enter the actual value part of the 
Structure. 


interface: 


p) Vv 
p) abortop 
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e/ 


called Du: 


calls 


getvalue() 


stripbIk)/debugutl.c 
str 2dec{)/debugutl.c 
eFro;rs: 


qet_int(v,abortop) 
VAL *v; 
BOOLN *abortoo: 


{ 


lo 


number; 


BOOLN validnum:; 
emer “Sir ptr; 
char inpstr{MXDECSTRI]; 


v->intval.tupe = V_INT; 


do { 


forintf(stdout,”Enter decimal number between\n\n"): 
forintf(sidout,"\i\t -2147483647 & 2147483647 (no ’',’):\n"); 
fprintf(stdout,”or\n\t\t’@’ to abort the operation:\n”): 
fscanf(stdin,’¥lls",inpstr); 


strptr = stripblk(inpstr); 


if (strptr[O] == '@’) { 
*abortop = TRUE; 
return; 


str 2dec(strptr,&validnum,&number ); 


if (validnum) { | 
fprintf(stdout,"Invalid number entered.\n”); 
continue; 


} 


¥->intval.val = number: 
return: 


} 
while (TRUE); 


} 
p *GET_CHAR() 
function: 


-This function initializes the charval structure, promp- 
ting the user to enter the actual value part of the 
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alt 4 


Structure. 
interface: 
P: V 
Db) abortop 


called Du: 
geivalue() 


calls: 
getchar()/ *system* 
errors: 


ee coal) aes 
Aa; 
BOOLN *abortop: 


Char cn; 
Vv->cCharval.tupe = V_CHAR: 


fprintf Sito character \n\t\ior\n”); 
fprintf(stdout,”"@’ to abort the operation:\n”); 


ch= getchar(); /* MUST be done to CLEARLAST NEWLINE CHARACTER 
user typed. */ 


ch = getchar(); 
if (ch == ’@’) { 


*abortop =TRUE; 
return; 


v->charval.val = ch; 
return; 


/*GET CSIRO 


function: 
-This function initializes the csirval structure, promp- 
ting ihe user to enter the actual value part of ihe 
Structure. 

interface: 
D) Vv 
Dp) abortop 


Called by: 
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getvalue() 


calls: 
ers 
getchar()/ *system* 
gets()/ *system* 
Sstrcpu()/ *system* 


errors: 

* / 

Bigs \v.abortop) 
ee: 

BOOLN *aboriop; 


{ char str[81]; 
Char *otr; 
char a 
char cn: 


v->csirvai.type = V_CSTR: 


do { 
Iprintt SH entitee char string (max 80 chars)\n’); 
fprintf(stdout,”\t\tor\n’@’ to abort the operation:\n’); 


ch= getchar(); /* MUST be done to CLEARLAST NEWLINE 
character user typed. */ 


ptr = gets(str); 


if (ptr = NULL) { 
if (str[O] == ’@’) { 
*abortop = TRUE; 
return; 


v->cstrval.val = pmalloc(strien(str) +1); 
strcpy(v->cstrval.val, str); 
return; 


} 
| fprintf(stdout,”Error in reading strina.\n"); 
while (TRUE); 
} 
/*GET_MAD() 
function: 


-This function initializes the madval structure, promp- 
ting the user to enter the actual value part of the 
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ue 


Structura@. 
inter face: 
D)v 
D) abortop 


called bu: 
getvalue() 


Calls: 
cnv2addr()/debuautl.c 
stripblk()/debugutl.c 
get-segm\) 
qet_ofsi( 


errors: 


qet_mad(v,abortop) 
AL *v; 


BOOLN “abortop: 


char *sirptr: 

char inpstr[MXINPSTR]; 
long. —seqnum: 
long —ofiset; 


v->madval.type = V_MAD; 


do { 
fprintf(stdout,"Enter one of Soltemriing ie 
fprintf(stdout,"\t\t’v’ - memaddr value prompt\n’); 
fprintf(stdout,"\t\t'@’ - to abort the operation: \n"); 
fscanf(stdin,”¥1s”,inpstr); 


strptr = stripblk(inpstr); 
if (strptr(O] == '@’) { 


*abortop = TRUE: 
return; 


if (strptr{O]} == 'v’) { 
_segnum = get_segm(abortop,numusrseg - |); 


if (*abortop) 
return; 


offset = get_ofst(abortop, | 
_mem{_segnum].size - 1); 
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if (*aboriop) 
return: 


v->madval.val = cnv2addr(_seanum, _offset): 


return; 


} 


fprintf(stdout,"Incorrect response. \n’); 
i, 
while (TRUE); 


/*GET_RAD() 
function: _ 
-This function initializes the radval structure, promp- 
ting the user to enter the actual vaiue dart of ihe 
structure. 


interface: 
D)v 
D) aboriop 


called Dy: 
qetvalue() 


Calls: 
cnvZaddr()/debugutl.c 
stripblk()/debugutl.c 
get_seqm() 
get_ofst( 


errors: 
*/ 
SL eAy.sortop) 
AL *v; 
BOOLN *abortop;: 
{ char *strptr; 
char inpstr{[MXINPSTR]; 
long —s2anum: 
iong —ofiset; 
v->radval.type = V_RAD; 
do { | 
fprintf(stdout,"Enter one of following:\n"); 


fprintf(stdout,"\t\t'v'’ - regaddr value omg) 
fprintf(stdout,"\t\t'@’ - to abort the operation: \n’); 
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fscan{(stdin,’%1s", inpstr ); 

sirptr = stripblk(inpstr); 

if (strptr[0] == ’@’) { 
*abortop = TRUE: 
return; 


if (strptr[O] == ’v’) { 
_segnum = get_segm(abortop,numregseg - 1): 


if (*abortop) 
return: 


offset = get_ofst(abortop,_reg{_segnum].num - }); 


if (*abortop) 
return: 


v->radval.val = cnv2addr(_segnum, _offset); 


return; 


} 


forintf(stdout,"Incorrect response.\n’): 


Fa 
while (TRUE); 


fi *GET_SAD() 
function: 


-This function initializes the sadval structure, promp- 
ting the user to enter the actual value part of the 
Structure. 


interface: 


Dp) Vv 
p) abortop 


called bu: 


Calls: 


errors: 


qetvalue() 


cnv 2addr()/debuqutl.c 
Sstripbik()/debugutl.c 
get_segm() 

get_ofst( 
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* / 
ees cOCeD) 
aie: 
BOOLN *aboritop; 
{ char *strptr: 
char inpstr{MXINPSTR];: 


long —seanum: 
long  —ofiset; 


v->sadval.tupe = V_SAD; 


do { 
print{(sidout,”Enter one of following:\n"); 
fprintf(stdout,"\t\t'v’ - stkaddr value peer: 
fprintf(stdout,"\t\t’e’ - to abort the operation: \n”); 
fscanf(stdin,’¥1s”,inostr): 


sirptr = stripbik(inpstr): 

if (strptr(O] == ’@’) { 
*abortop = TRUE; 
return; 


if (strptr{0] == 'v’) { 
_segnum = get_segm(abortop, _numstkseg - |); 


if (*abortop) 
return; 


_offset = get_ofst(abortop,_stk[_segnum].size - 1); 


if (*abortop) 
return: 


v->sadval.val = cnv2addr(_segnum, —of fset); 


return; 


} 


fprintf(stdout,"Incorrect response.\n”): 
be 
while (TRUE); 


/*GEIBEILE() 
function: | 
-This function initializes the fileval structure, promp- 
ting the user to enter the actual value part of the 
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A), 


Structure. 
inter face: 
D} Vv 
Dp) abortop 


called bu: 
qetvalue() 


calls: | 
Stripbik()/debugutl.c 
str2dect)/debuqut!.c 


PrrOFrs: 


aet_file(v,abortop) 
VAL *y; 
BOOLN *abdortcp; 


{ 


lona number: 

BOOLN validnum: 

cnar *“sirptr: 

char inpstr{MXDECSTR]}; 


v->fileval.type = V_FILE; 


do { 
fprintf(stdout,"Enter decimal number "), | 
fprintf(stdout,"between 0 and ¥d\n\t\tor\n’_numfiles - 1); 
fprintf(stdout,”’@' to abort the operation:\n”); 
fscanf(stdin,’"%lis”,inpstr); 


strptr = stripblk(inpstr); 


if (strptr[0] == '@’) { 
*abortop = TRUE; 
return; 


str2dec(strptr &validnum,&number): 


if (Ivalidnum) { a ae 
fprintf(stdout,"Invalid number entered.\n’); 
continue; 


} 


if ((number < 0) | | (number > _numfiles - 1)) { 
fprintf(stdout,”"Number out of range.\n”): 
continue; 


} 
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v->fileval.val = number; 


return; 
while (TRUE); 
} 
/*GET_INST() 
function: se | 
-This function initializes the instrval structure, promp- 
ting the user to enter the actual value part of the 
Structure. It resets qlobDai file var ‘inst_get’ to FALSE 
just before function termination. 
interface: 
Py 
P aDoriop 
(aq) inst_get 
Called Dy: 
getvaiue() 
Gals: | 
_ getopnd()/aminsir.c 
qetopcode()/aminstr.c | 
getvalue() /* Note that this is arecursive call */ 
pmalloc()/amstate.c 
str 2hex()/debugutl.c 
Stripblk()/debugutl.c 
errors: 
ay 
ie pahv.peesion) 
AL *v; 
BOOLN *abortop; 
{ long number: 
BOOLN validnum; 
Char *strptr; 
char inpsir{MXHEXSTRI]; 
int i; 
int j; 
VAD: 
V->instrval.type = V_INSTR; 
Inst_get = TRUE; 


fprintf(stdout,”"Enter HEX opcode\n\t\tor\n’); 
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fprintf en | to abort the operation:\n"); 
fscanf(stdin,’S4s” inpstr): 


sirptr = stripblk(inpstr); 


if (strptr[0] == '@’) { 
*abortop = TRUE: 
inst_.aget = FALSE: 
return; 


str 2hex(strptr &validnum,&number ): 


if (lvalidnum) { | 
fprintf(stdout,"Invalid number entered.\n”); 
continue; 


} 


if ((number < 0) || (number > Ox6fff)) { 
fprintf(sidout, "Invalid opcode.\n’): 
continue: 


’ 


} 


if (getopcode(number ) == IL.DBG) { 
ee. ee opcodeentered.\n"); 
fprintf(stdout,"Opcode can’t be entered.\n\n’); 
continue; 


} 


j = getopnd(number); | | 
v->instrval.val_ = (VAL *) pmalloc(sizeof(VAL)* }): 
v->instrval.val[0].opcdval = number; 

Dp = v->instrval.val; 


for (i=l; i<j; itt) { , , 
uae xx Entering Operand *%d” i); 
fprintf(stdout,” ***\n"); 
getvalue(&pli], abortop); 


if (*abortop) { 
Inst_get = FALSE; 
return: 


inst_get = FALSE; 
return; 


al (TRUE); 
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(SET MOP() 


ae 


function: | | 
-This function initializes the mopval siructur2, promp- 
ting the user to enter the actual value part of the 
structure. 


interface: 
D) Vv 
p) abortop 


called by: 
getvalue() 


calls 
str 2hex()/debuguti.c 
Stripbik()/debugutl.c 


orf Of S: 


get_mcp(v,abertop) 
VAL *v; 
BOOLN *abdor top; 


long number; 

BOOLN validnum:; 

char *strptr; 

char inpstr[MXHEXSTR]; 


Vv->mopval.type = V_MOP; 


do { 
fprintf(stdout,”Enter HEX number "); 
fprintf(stdout,"between 0 and ffff\n\t\tor\n’); 
fprintf(stdout,”’®’ to abort the operation:\n’); 
fscanf(stdin,”"%4s" inpstr); a 


strptr = stripblk(inpstr); 
if (strotr{[0] == ‘@’) { 


*abortop = TRUE; 
return: 


str2hex(strptr,&validnum,&number); 
if (lvalidnum) { 


fprintf(stdout,"Invalid number entered.\n”); 
continue; 


} 


lis 


if (number < 0) | | (number > 65535)) { 


fprintf(stdout,"Number out of range.\n"); 
continue; 

} 

v->mopval.val = number: 

return: 


i (TRUE); 


/*GET_DOPQ) 


function: 
-This function initializes the dopval structure, promp- 
ting the user to enter the actual value part of the 
structure. 


interface: 


Dp) v 
D) abortop 


called Du: 
getvalue() 
Calls: 
tse rman 
stripblk()/debuqutl.c 
errors: 
“/ 
gal__doptv ab@rtep) 
AL *v; 
BOOLN *abortop; 
{  lona number; 


BOOLN validnum; 
char *strptr; 
char inostr{MXHEXSTR]; 


V->qgopvai.iupe = V_DOP; 

do { 
fprintf(stdout,”Enter HEX number ”); 
fprintf(stdout,"between 0 and ffff\n\t\tor\n”); 
fprintf(stdout,”"@’ to abort the operation:\n"); 
fscanf(stdin,”% 4s”, inpstr); 


strptr = stripblk(inpstr); 
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if (strptr[O] == ’@’) { 
Pacrton - TRUE; 
return; 


} 
str 2hex(strotr &validnum,&number ); 
if (ivalidnum) { 


fprintf(stdout,"Invalid mumber entered.\n"); 
continue; ~ 


if ((number <0) |! (number > 65535)) { 
fprintf(stdout, ‘Number out of range.\n"); 


continue; 
} 
V->dopval.val = number: 
return: 
while (TRUE): 
} 
/*GET_ROP() 
function: 


-This function initializes the ropval structure, promp- 
ting the user to enter the actual value part of the 
structure. 

interface: 


D) Vv 
Dp) abortop 


Called by: 
getvalue() 
calls: 
re © 
Stripbik()/debugutl.c 
Pieis: 
® } 
get Font, abortop) 
BOOLN *abortop; 
{ long number; 
BOOLN validnum; 


lis 


Char “Strpir; 
char inpstr{MXKEXSTRI; 


v~>ropval.type = V_ROP; 


do { 
forintf(sidout,”Enter HEX number ”); 
fprintf(stdout,"between 0 and 7 1 ff\n\t\tor\n"): 
fprintf(stdout,”"’*@’ to abort the operation:\n"); 
fscanf(stdin,"%4s” inpstr); 


sirptr = stripbik(inpsir); 


if (strptr{O] == '@") { 
*abortop = TRUE; 
return; 


} 
str 2hex(sirptr,avalidnum,&number ); 


if Clvalidnum) { 
fprintf(stdout,"Invalid number entered.\n"); 
continue; 


} 
if ((number < 0) | | (number > 65535)) { 


fprintf(stdout,”Number out of range.\n”); 
continue; 


V->ropval.val = number; 
return: 
while (TRUE); 
} 
/*GET BOR 
function: 
-This function initializes the bopval structure, promp- 
ting the user to enter the actual value part of the 
Structure. 
inter? ace: 
D) v 
D)) abortop 


Called by: 
getvalue() 


calls 
str 2hex()/debugutl.c 
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stripbik()/debugut!.c 
errors: 
a7 
get_bop(v,abortop) 
VAL *v; 
BOOLN *abortop; 
{ long number; 
BOOLN validnum; 
cnar “sirptr; 
char inpstr{MXHEXSTRI; 
v->bopval.tupe = V_BOP; 
do { | 
forintf(stdout,"Enter HEX number ”); | 
rprinif(stdout,"between 0 and frff\n\t\ior\n"): 
iprintf(stdout,”’@’ to abort the operation:\n’): 
iscanf(sidin,”%4s” inpsir); 
sirptr = stripbik(inpsir); 
if (strptr[O] == '@’) { 


*abortop = TRUE; 
return; 


str 2hex(strptr,&validnum,&number ); 
if (lvalidnum) { 


fprintf(stdout,”Invalid number entered.\n’): 
continue; 


if ((number < 0) | | (number > 65535)) { 


fprintf(stdout,"Number out of range.\n”); 
continue; 

} 

¥~->hHopoval.val = number; 

return: 


1 

while (TRUE); 
} 
/*GETVALUE() 


function: _ | 
-This function prompts the user for value of type VAL 


balay. 


which canbe placed into memory, a register or the 
Stack. 


interface: 


piv 
p) abortop 
Gg; sAsta@ei 


calied Du: 


Calls: 


errors: 
| 


setmemr() 

setrear() 

setstk() a | 

getinst() /* Note -- indirect recursive caill! */ 


Str 2dec()/debuqutl.c 
stripblk{)/debuqutl.c 
aet_bool() 

get_nat() 
get_int( 
get_char() 
get_csir 
. os 
get_mad 
get_rad 
get_sad 
get_file 
get_inst 
get_mop\) 
qet_dop 
qet_rop 
get_bop 


/ 


erty/thaluabortan) 
fal Pen: 
BOOLN *abortop; 


{ char *strotr: : 
char inostr{(MXDECSTRI; /* MXDECSTR = 12 */ 
Int Number: 
BCCLN validnum; 


do { 


KKK \N\N"): 


fprintf(stdout,"\t\t **** Entering Value to be Stored 


fprintf et ee number "); _ 
fprintf(stdout,"besides type desired:\n\n"), 
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fprintf(stdout,"\t | - BOOL\t 2-NAT \t 3 - iNT ”): 
fprintf(stdout,’ vr 4 —GAAR\n\tS - CSTR \EG - MAD "); 


fprintf(stdout, "\t 7-RAD \t 8- SAD\n\i 9 - FILE ”): 

if rete) 

ee dout,"\tlo - INSTR\tI] - MOP \tl2 - DOP\n’); 
ee stdout,"\tl3 - ROP \tl4 - BOP \t @ - abort op\n’); 


else 
pik staout “\tll - MOP \tl2 - DOP \tl3 - ROP\n”) 
on stdout,"\tl4 - BOP \t @ - abort op\n’); 


fscanf(stdin,”¥11s” inpsir); 
strptr = stripbik(inpstr); 


iiGoinptr( Olke= Oo’) { 
*abortop = TRUE; 
return: 


} 


str 2dec(strotr &validnum,&number }; 

if (ivalidnum) 
fprinif(stdout,"Invalid number eniered.\n”): 
continue: 


} 


switch(number) { 
case}: get _bool(v,abortop): 


return; 
Case 2: get_nat(v,abortop); 
return; 
case 3: get_int(v,abortop): 
return; 
case 4: 9 aria abortop): 
return; 
cases: get cstr(v, abor top): 
return; 
case 6: ne abortop); 
urn; 
case 7: getrad(v, abortop): 
return: 
case 8: qet_sad(v,aDortop): 
return; 
case 9: get_file(v,abortop); 
return; 
case 10: if (linst_get) { 
get_inst(v,abortop); 
return; 
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fprintf(stdout,”"Incorrect number.\n’); 
break; 


case ||: get_mop(v,abortop); 
return; 

case 12: get_dop(v,abortop); 
return: 

case 13: get_rop(v,abortop); 
return; 

case 14: get_bop(v,abortop); 
return; 


defauit: fprintf(stdout,”"Incorrect number.\n’); 


} 
while (TRUE); 


/*SETMEMR() 
function: 
-This function performs the ‘set memory’ operation. 
interface: 
p) opt 
g) —segnum 
-offset 
x) debgtask/am.h 
called bu: 
debug()/debug.c 
Calls: 
stripbIk()/debuqutl.c 
etvalue 
a ete 
storem()/amstate.c 


wy 


pmalloc()/amstate.c 
fmalloc()/amstate.c 
cnv2addr()/debugutl.c 
getopcode()/aminstr.c 


setmemr(opt) 
OPTION *opt; 


{ 


char “strptr; 
char inpstr[MXINPSTR]; 
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BOOLN op_abori = FALSE; 
VE eh 

MAD m; 

short brknum; 

opt->oprtn = SETMEMR; 


do { , 
fprintf(stdout,”"Enter one of f nee) 
fprintf(stdout,"\t\t’v’ - memaddr value prompt\n"); 
fprintf(stdout,"\t\t'@’ - to abort the operation: \n”); 
fscanf(stdin,”¥1s* inpstr): 


strotr = stripblk(inostr): 
if (strptr[0] == '@’) { 
opt->abortop = TRUE; 
return: 
} 
if (strptr{O]} == ‘v’) { 
_segnum = get_seqm(&opt->adortop, 
_humusrseg - |); 


if (opt->abortop) 
return; 


_offset = get_ofst(&opt->abortop, 
_mem{_seqnum].size - 1); 


if (opt->abortop) 
return; 


opt->val = (VAL *) pmalloc(sizeof(VAL)); 
getvalue(opt->val,&op_abort); 


break; 


} 


fprintf(stdout,"Incorrect response.\n”); 


} 
while (TRUE); 


if (opt->abortop = op_abort) /* Assignment intended! */ 
return; 


debgtask = |; 


m.val = cnv2addr(_segnum, _offset); 
Vv = fetchm(&m,Q); 
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if (v->tupe == V_INSTR) { 
if (getepc OMe y- its LDBG) { 
_ do 


fprintf(stdout,”"Breakpoint at memaddr.\n”); 
fprintf(stdout,”Enter ‘!’ to confirm set\n’); 
fprintf(stdout,”\t\tor\n’@’ to abort op:\n’): 
‘scant (stdin,’%is” inpstr); 


sirptr = stripbik(inpstr); 


if (strptr[O] == ’@’) { 
opt->abortop = TRUE: 
debatask = 0; 
return: 


if (strptr[O] == 'V) { 
brknum=getoond(v->insirval.vai(0|.opcdval); 
storem(opt->val,&m,Q); 
fmailoc{opt->val); 
brktable{[brknum|].memaddr = 0; 
brktable(brknum|.opcdval = UNDEFND: 
mt_siotsit+topsliot] = brknum:; 
debatask = 9; 
return; 


} 

fprintf(stdout,”Incorrect response.\n”); 
ie 

while (TRUE); 


storem(opt->val,&m,Q): 
fmalloc(opt->val); 


debgtask = 0; 
/*SETREGR() 
function: | | , 
-This function performs the ‘set reqister’ operation. 
interface: 
p) opt 
q) —segnum 
q) -ofiset 
Called by: 
debug()/debug.c 


| Zee 


calls: 
stripbik()/debugut!.c 
getvalue 
omalloct)/amstate.c 
fmalioc()/amstate.c 
cnv2addr()/debugutl.c 


errors: 
/ 
setrear(oot) 
OPTION *oot; 


i Char *sirpir; 
char inpstr[MXINPSTRI; 
BOOLN op_abort = FALSE; 
RADr: 


Cpi->oprtn = SETREGR; 


do { 
fprintf(sidout,"Enter one of following:\n’); 
fprintf(stdout, "\i\t’v’ - regaddr value prompi\n”); 
fprintf(stdout,"\t\t’@’ - to abort the operation: \n’): 
fscanf(stdin,”"%1s”,inpsir); 


strptr = stripbik(inpstr); 
iS (eotigl iar) 


Opt->abortop = TRUE; 
return; 


if (strptr[O] == 'v’) { 
_segnum = get_segm(&opt->abortop, 
_numregseg - 1); 


if (opt->abortop) 
return; 


offset = aet_orsi(&opt->abortop, 
_reo{_seqnumi.num - |); 


if (opt->abortop) 
return; 


opt->val = (VAL *) pmalloc(sizeof(VAL)); 
getvalue(opt->val,&op_abort); 


break; 


WZ 


iprinif(stdout,"Incorrect response. \n’); 


‘a (TRUE); 


if (opt->abortop = op_abort) /* Assianment intendedi! */ 
return; 


r.val = cy cane ar _offset); 
storer(opt->vai,&r,Q); 
fmailoc(opt->val); 


} 
/ASENSTKO 
FUNCTION: | | 
-This function pertorms the ‘set stack’ operation. 
interface: 
p opt 
q) _segnum 
called by: 
debua()/debua.c 
Calls: | 
stripblk()/debugutl.c 
getvalue 
pmalloc()/amstate.c 
fmalloc()/amstate.c 
cnv2addr()/debugutl.c 
errors: 
ni 
setstk(opt) 
OPTION “opt: 


{ 


Char *strotr; 

char inpstr[MXINPSTRI; 
BOOLN op_abort = FALSE: 
SAD Ss; 


opt->oprtn = SETSTK; 
do { | } 
fprintf(stdout,"Enter one of following:\n’); 


fprintf(stdout,"\t\t'v’ - regaddr value are} 
fprintf(stdout, "\t\t’'@’ - to abort the operation: \n”) 
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fscanf(stdin,’%1s”, inpstr); 
sirptr = stripbik(inpstr): 


if (strptr{O] == ’@’) { 
opt->abortop = TRUE; 

return; 

} 


Girpie) == v4 
_segnum = get_segm(&opt->abortop, 
_numstkseg - 1); - 


if (opt->abortop) 
return; 


opt->val = (VAL *) pmalloc(sizeof(VAL));. 
getvalue(opt->val,a0p_abort); 


Dreak; 


fprintf(stdout,"Incorrect response.\n”); 


} 
while (TRUE); 


if an sapetop = op_abort) /* Assignment intendedi! */ 
return; 


_offset = _stk[_segnuml.size -1; 
s.val = cnv2addr(_seqnum, —offset); 
Be osteo i musal 8.5). 
fmalloc(opt->val); 


} 


/*SETBRK() 
function: 
-This function sets a breakpoint at an memaddr with an 
Instruction. 


interface: 

p) opt 
x) debgtask/am.n 
g) mt_init 

q) orktable[] 

q) topslot 

q) mt_slotsf{] 

q) —seqnum 

q) offset 


gg I NN 


IZ 


called b 


calls: 


errors: 
ai 
setbrk(opt) 


debug()/debug.c 


stripblk()/debugutl.c 
getopcode()/aminsir.c 
retchm()/amstate.c 
storem()/amstate.c 
cnv 2addr()/debugutl.c 


OPTION *opt; 


{ char *strotr; 
cner inostr(MXINPSTRI; 
snort opcode: 


VAL eo: 
MAD mM: 
snort oi: 
SRE AK SOME: 


Opt->oprtn = SETBRK; 


do { 


fprintf(stdout,"Enter one of following:\n"); 
fprintf(stdout,"\t\t’v’ - memaddr value prompt\n’); 
fprintf(stdout,"\t\t'@’ - to abort the operation: \n”); 
fscanf(stdin,’¥1s”,inpstr); 


strptr = stripblk(inpstr); 
if (strptr[O] == '@’) { 


opt->abortop = TRUE; 
return; 


if (strptr[O] == 'v’) { 
—segnum = qet_seqm(&opt->abortop, 
_Numusrseq - }); 


it (Opt->abortop) 
return; 


_offset = get_ofst(&opt->abortop, 
_mem{_seqnum].size - 1); 


if (opt->abortop) 
return; 


126 


Or 2ak; 


} 

fprinif(stdoui,"Incorrect response. \n’); 
Be 
while (TRUE); 
if (imt_init) { | 

for (i = 0;i < MAXBRKS; i++) { 


mt_slotsli] = i: 
orktableli|memaddr = 0; 
brktable({iloocdval = UNDEFND: 


J 


topslot = MAXBRKS - 1; 
mt_init = TRUE; 


if (topsiot < 2}. 
fprintf(stdout,”"Break Table Full.\n”); 
return; 


dedqtask = |; 


m.val = cnv2addr(_segnum, —offset); 
v = fetchm(&m,Q); 


if (v->type = V_INSTR) { | 
printf(stdout,”"Sorry, non-insir at memaddr.\n’): 
debgtask = 0; 
return; 


if (getopcode(y->instrval.val[0].opcdval) == ILDBG) { 
fprintf(stdout,"Sorry, Breakpoint already at memaddr.\n’); 
debgtask = 0; 
return; 


brk.opcdval = v->Instrval.val{ol.opcdvail: 
brx.memaddr = m.val: 


opcode= ((mt_slots[topsiot] << X_OPNDSF) | (II_DBG)); 
v->instrval.val[O|.opcdval = opcode; 
brktable[mt_slots[topslot]].memaddr = brk.memaddr; 
ee otstlopsiot .opcdval = brk.opcdval; 
opslot--; 


storem(v,&m,Q); 


7 


debqtask = 0; 


} 
/*SET_PC() 


ay 


function: | 
-This function performs the ‘set proaram counter’ 


operation. 


inter face: 

p) opt 

x) _numusrseg/am.h 

x) _pc/am.n 

x) _mem{]/am.h 

g) _segnum 
_offset 

x) debqtask/am.h 


called bu: 
debuag()/debua.c 


Calls: 
oo debugutl.c 
fetcnm()/amstate.c 
crw daca debuguti.c 
get_segqm 
get_ofst() 


errors: 


set_pc(opt) 
OPTION *opt; 


char *strptr; 

char inpstr[MXINPSTR]; 

VAL *v; 

MAD m; 

opt->oprtn = SET_PC; 

do { | 
fprintf(stdout."Enter one of followina:\n"): 
fprintf(sidout,"\t\t'v’ - prog cnir vaiue prompt\n’); 
fprintf(stdout,"\t\t'@’ - to abort the operation: \n’); 
fscanf(stdin,"%1s",inpstr); 
strptr = stripblk(inpstr): 
if (strptr[0] == '@’) { 

opt->abortop = TRUE; 
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return; 


if (strptr(O] == ’v’) { 
_segnum = get_segm(&opt->abortop, 
_numusrseg - 1): 


if (opt->abortop) 
return; 


_offset = get_ofst(&opt->abortop, | 
_mem{_segnum|.size - 1); 


if (opt->abortop) 
return; 


‘break; 


} 


fprinti(stdout,"Incorrect response.\n”); 


while (TRUE); 
debgtask = |; 


m.val = cnv2addr(_segnum, —offset); 
v = fetchm(&m,Q); 


if va V_INSTR) { | 
printf ener non-instr at memaddr.\n”); 
fprintf(stdout,”Program counter unchanged. \n”); 
eoner = TRUE; 
return: 


} 


_pc.val = m.val; 
debgtask = 0; 


}29 


Debugger Utiiliy File 


/*DEBUGUTL.C : This file contains the utility programs for the AM 
debugger. 
-AM version 1.0 - Z100 
Changes: 
* / 


Finclude "amdef.n” 
7include “amtype.n’” 
#include "amextern.hn” 
#include "“debug.h” 


/*CNV 2ADDR() 
FUNCTION: | | 
-This functions converts its parameters into a requiar 


segmented memory acdress. 


interface: 
p _seqnum 
p) _oftset 


called bu: 
ail /debugopr.c 
removbrk()/debugopr.c 
setmemr()/debugopr.c 
mite! fame, al 
set_pc()/debugopr.c 
a ean < 
isplreq()/debugopr.c 
setregrt /debugopr.c 
To /debugopr.c 
ispistk()/debugopr.c 
setstk()/debugopr.c 
get_sad()/debugopr.c 


Calls: 
errors: 
a / 
address 
cnv2addr(_seqnum, —offset) 


long —segnum; 
long —ofiset; 
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return((_segnum << X_SEGSFT) | _offset); 


/*STRIPBLK() 
function: 
-This functions strips leading blank characters from a 
character strina. 


interface: 
p) sir 


called DY: 
isclmem()/debugopr.c 
dispireq( )/debugopr.c 
displork()/debuqopr.c 
displstk()/debugopr.c 
displ|_pc()/debugopr.c 
getopr()/debua.c 
getresrc{)/debug.c 
getvalue()/debugopr.c 
goexect)/debugopr.c 
removork(}/debugepr.c 
setmemr()/debugopr.c 
setrear()/debugoor.c 
setsik( )/debugopr.c 
setbrk()/debugopr.c 
set_pc()/debugopr.c 
traceop()/debugopr.c 
quitdebq()/debugopr.c 
get_mad()/debugopr.c 
get_rad()/debugopr.c 
get_sad()/debugopr.c 
qet_int()/debugopr.c 
get_bool()/debugopr.c 
qet_file()/debugopr.c 
qet_mop( )/debugopr.c 
get_bop()/debugopr.c 
get_rop()/debugopr.c 
get_dop()/debugopr.c 
get_inst()/debugopr.c 
get seg) debugorr c 
qet_of st /debugopr.c 
quitdebq()/debuacpr.c 


Calls: 
strien()/ *syustem* 
errors: 
* / 


char 


So 


*stripbik(sir) 
char *str; 


Int index = 0; 
int Ingth; 


Inath = strien(str); 


while (Cindex < Ingth) && (str[index] ==’ ’)) 
index++; 


return(str + index): 


/*STR2HEX() 
function: | oe 
-Converts an unsigned hex character string into its 
Integer equivalent. !! Warning !! The function can and 
does modify the pointer to the input string parameter! 
The max string length the function assumes is four (4) 
for conversion to reguiar hexidecimal integer. 


interface: 
iP str 
p) validnum 
(D Intptr 


Called by: 
get_inst()/debugopr.c 
get_mop()/debugopr.c 
get_dop()/debugopr.c 
get_rop()/debugopr.c 
get_bop()/debugopr.c 


calls: 
errors: a. | | 
Initializes parameter ‘validnum’ with the results of 
of the conversion. 
* / 
str2hex(str,validnum.intptr) 
Char “sir 
BOOLN “validnum; 
long *intptr; 


{ int index = 0; 
Int maxchars; 


str = stripblk(str); 
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if (strlen(str) == Q) { 


*validnum = FALSE; 
return; 


*intptr = 0; 
maxchars = MXHKEXSTR - |: 


while 


} 


sir = 
i 


Striindex} >= '0’) && (strf{index] <= '9’ 
“fetes ee es oe Lb 
index < maxchars)) { 


if ((str{index] >= '0') && (str{index] <= '9’)) 
*intptr= 16 * Cintptr) + strlindex++] - ’0’; 


*intptr= 16 * (*intptr) + (strlindex++] - 'a’) + 10; 


elise 


&strfindex};. 
stripbik(str); 


*validnum = (sirlen(sir) == 0) ? TRUE : FALSE; 


} 
/*®STR2DECO) 
function: 


-Converts an signed or unaired character string into 
Its aa integer equivalent. !! Warning !! The function 
can and does modify the pointer to the input string para- 
meter! The max string length the function assumes Is 
eleven (11) for conversion to regular signed integer. 


interface: 


p) str. 
p) validnum 
pO) intptr 


called by: 


Calls: 


/debugopr.c 
getrange()/debugopr.c 
oexec()/debugopr.c 
raceop()/debucoor.c 
removbrk()/debugopr.c 
get—inthy’ debugopr.c 
get_nat 0 debugopr.c 
get_file ‘4 debugopr.c 
getvalue()/debugopr.c 


et_seqm()/debugopr.c 
oat ; 


Strien()/ *system* 
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wi 


errors: 
-initializes parameter ‘validnum’ with the results of 
of the conversion. 


str2dec(str,validnum,intptr) 
cnar “str; 

BOOLN *validnum:; 

long *intptr; 


{ 


Int index = 0; 

Int maxcnars; 

int strsize; 

BOOLN negnum = FALSE; 
long maxnum = 2147483647; 


maxchars = MKDECSTR - 


if (sirlen(str) == 0) { 
*validnum = FALSE; 

return; 

J 


if (sir{O] == "-} { 
neanum = 7 RUE; 
str = astral: 


if (strien(str) == 0) { 
*validnum = PASE; 
return; 


*intptr = 0; 
index = 0; 


while \((strfindes) >= '0’) && (Str[index] <= '9')) 
&& (index < maxchars) && (*intptr <= maxnum)) { 


*intptr = 10 * (*intptr) + (str[index++] - '0’); 
} 
str = &str{index|; 
Sir.= stripbik(str): 
*validnum = (strlen(str) == 0) ? TRUE : FALSE; 


if (*validnum) { | | 
*intptr = negnum ? O - *intptr : *intptr; 
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